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RIiDeau ou “domaine d'Alice" ? 


Vous avez dû vous apercevoir que je confondais 
les 2 expressions citées dans le titre et je vais 
vous expliquer pourquoi je me mélangeais les 
"crayons" (de la comprenoire). 

Pour moi, regarder derrière le RIDeau c'était 
regarder là où on ne devrait pas regarder, Or, j'ai 
fini par m'apercevoir qu'en fait, derrière le 
RID n'était pas (encore) le “domaine d'Alice", ce 
dernier étant l'ensemble de la MEM interne, c'est- 
è-dire tous les REG auxquels nous ne pouvoms pas 
accéder normalement. 

Le RIDeau est la limite extrème de la partie 
eccupée par les PRGM (éventuels) situés en MEM 
principale. Je ne suis pas sûr que "ceux qui ne 
savent pas" ont compris (7). 

La MEM vive dont on peut disposer sur une 41CV 
comporte 519 REG que nous allons représenter, 
empilés les uns sur les autres, Le 1er REG, en Bas, 
a comme ADD DEC 193 et le dernier REG (en Haut), 

a comme ADD DEC 512 d'où : 512-193= 319 mais il se 
peut que je me sois trompé d'une unité (Bm +), en 
ce qui concerne ces ADD et si quelqu'un se dévoue 
pour nous donner des précisions, j'expliquerais 
comment j'ai trouvé ces VAL (ADD)..... 

En partant du Bas, les premiers REG seront 
éventuellement utilisés pour les ASN de Fonctions 
et Le à de LBL ALPHA globaux éventuels (1 REG pour 
2 ASN). 

Ensuite (toujours en montant), les REG seront 
éventuellement utilisés peur le stockage des 
ALARMes du module HORloge. 

PUIS : “Buffer" qui signifie, je crois (7?) : 
TAMPon. Jean-Daniel DODIN, dans son livre "“AF", 
indique que cet emplacement “est destiné à rece- 
voir des données à titre transitoire, par exemple 
au cours d'un transfert sur la boucle HP-IL entre 
le Mass storage (je pense qu'il doit s'agir du 
LECTeur de ‘K7” 2) et l'imprimante” J'aimerais bien 
également, avoir des précisions à ce sujet...... 

Au-dessus, se trouveraient les REG disponibles 
avant le .END. permanent situé à la fin du dernier 
PRGM éventuel. 

La limite supérieure du (ou des) PRGM serait 
notre fameux RIDeau . 

Au dessus du RIDeau nous trouvrions donc les 
REG de données dont le nbre est déterminé par le 
SIZE et le dernier REG de données (situé tout en 
Haut) serait donc à l1'ADD 512 (ou 511 ?). 

<< Ouf !, il fallait l'écrire ! >> 

Donc, si j'ai bien compris (7), après un 
MEMORY LOST et avec SIZE ###, le RIDeau est 
1'ADD DEC 512 et avec SIZE #12 il se trouve 
1'ADD 559, etcCe.ee 
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S7eLBL 61 

58 FC?2C END Y 
59 SF IND Y 
66 FC? IND Y 
6i CHS 

62 K)8? 

63 GT0 13 

64 FC? END Y 
65 ChS 

66 BSE Ÿ 

67 GT0 81 
68eLBL 13 

69 MEL 

76 GTO 88 
716LBL 14 

7e XO ] 

73 XC) d 

74 STO I 

75 “HRBC”" 

76 KO \ 

27 80 € 

78 RDKH 

79 CLA 

86 RTH 

81 ENI 


CODES DEC 


P84: 244 127 8 8 65 


P39: 245888 


Ligne 

151 247 
17 | 247 
19! 247 
21} 247 
23 | 247 
25 | 247 
27 

29} 247 
311 247 
53 | 247 
35 | 247 
37 | 247 
39 | 247 
41 | 247 
L3 | 247 
45 | 247 
47 | 247 
49 | 247 
52 | 247 
53 | 247 
56 | 247 
57 | 247 
59 | 247 
61 | 247 
63 | 247 
65 | 247 
67 | 247 
69 | 247 
71 1 247 
75 | 247 
75 | 247 


16 
17 
16 
16 
16 
16 


16 


La définition que j'ai donnée au début est 
donc "“imprécise”" et nous dirons que le RIDeau 
est la limite déterminée par le SIZE, entre les 


REG de données et les REG de PRGM,. 


I1 est entendu 


que cette définition ne s'appilque qu'aux cendi- 
tions normales (c'est-à-dire, prévues par belle- 
mère HP) d'utilisation car, si cela vous intéresse, 
nous verrons qu'il est possible de déplacer le RID 
autrement qu'en agissant sur le SIZE et je vous 
assure que cela donne quelques applications 
intéressantes (avec la PS, bien entendu et en 
utilisant les PRGM adéquats de la PPC-ROM). 
J'indique que si des collègues veulent traiter 


le sujet, 


j'en serais ravi car je préfère lire 


les articles des autres .,600e 
Je tire donc le RIDeau et vous dis: à bientôt, 


rs (P20) 


ADD = ADresse 
VAL = VALeur 


si vous le voulez-bien ! 
CAT ! 
LBL'C? 
LBL'CX ere 
LOL'CU cu 
ENT 163 BYTES . 
.ENI. 5 RYTES cx" 


est de Clifford STERN 
est de Bill WICKES et 
Harry BERTUCCELLI 

est de Keith JARETT:. 


CODES DEC pour le PRG: NOREC" 


Etant donné que les CODES des chaînes ALPHA 
doivent être introduits en base 1#, je me suis 
donné la peine indispensable de convertir les 
CODES indiqués Page 22 de JPC N°1. 


18 8 47 128 128 131 
7 252 16 52 65 128 
ÿ 3 195 LB 81 # 

Lk 112 16 63 16f # 

3 24ÿ 2# 169 14f ÿ 
113 21 217 55 81 28 


16 1 244 153 47 128 ÿ 


f p 15 144 f 

13 9 97 13 33 97 

1 1 23 112 32 # 

252 65 2 2 7 144 

& 23 196 4 71 128 
135 13 217 55 96 227 
24 23 224 87 161 2 
248 81 18 35 128 # 
18 84 153 4h 65 ÿ 
24 11 248 LB 64 129 
12 8 31 224 64 131 
1 132 137 87 64 135$ 
7 252 16 16 127 193 
226 36 72 142 34 98 
5 252 8 16 16 127 
139 196 1894 49 172 96 
1 4 186 216 128 $ÿ 

3 5 128 192 238 96 
f #97 52 63 # 

L 242 8 16 95 # 

48 133 31 244 72 12 
# 56 297 194 67 128 
52 165 95 245 74 6 
226 36 k 16 54 56 


(247 en tête!) 


ALPHA 


TAU 


œ 
BETA 6 
F 


DELTR & 
OMICRON oc 
LANBDA > 


MU 
PHI 


THETA 
OMEGA 
DELTA 
SIGMA 

(KHI x) 


L 


& 


MM 
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ASN pour "sportifs" 


Voici une série de fonctions qui vous permettront 
de faire "un tas de choses" mais qui n'interressera 
pas ceux qui n'aiment pas "découvrir"..... 

Pour obtenir ces ASN, je vous conseille d'utili- 
ser le PRGM "MKX'!' auquel vous ajouterez au Pas #2, 
CF 27 (sage précaution que je vous conseille 
d'adopter dans tous vos PRGM).'MKX”est à mon avis, 
le plus rapide parmi les nombreuses versions que 
J'ai eu l'occasion d'essayer avec, pour un certain“ 
des difficultés qui ne devaient être dues qu'à ma 
“comprenoire difficilette" ou à mon manque d'atten- 
tion.,... 11 vous suffira donc, après avoir intro- 
duit le CODE de la touche à ASN, de taper USER jet 
de suivre la procédure dont le listing se trouve 
ci-joint. FIX # et CF 29 vous permettront d'obtenir 
la même bande (si vous avez une IMP),. 

Le module XF est pratiquement indispensable. 
J'indique à ceux qui ne le possèdent pas, que j'ai 
sous les yeux une lettre de la FNAC "forum" qui 
précise que les modules XF, XM, QuadM & Temps sont 
vendus séparément (sic), 275F et, avec l'achat 
d'une IMP ordinaire, d'un lecteur de carte ou d'un 
lecteur optique : 165F. Je tiens à remercier le 
charmant collègue qui m'a envoyé cette lettre. 
UTILISATION 


Il est vivement conseillé de déconnecter 1'IMP 
avant d'utiliser les F ASN car il en est qq unes 
qui réagissent différemment avec l'IMP mais vous 
ne risquez pas grand chose d'essayer,..... Rappelez- 
vous que l'IMP est un périphérique qui comporte 
ses propres fonctions qui réagissent à des CODES 
qui sont également utilisés par notre "41", 

La touche 12 (B) est ASN au BG (je crois que 
j'aurais dû écrire le contraire!). J'aurais préféré 
adopter le BG de Lionel ANCELET publié dans JPC N°9 
P4 et ‘“repris" dans JPC N°1 P16 mais je ne connais 
pas les CODES DEC à utiliser pour l'ASN. J'en 
profite donc pour lancer un appel à ‘ceux qui savent” 
pour qu'ils nous indiquent ces CODES et la formule 
mathématique qui permet, à partir de l1'XROM, 
d'obtenir ces CODES, 

La touche 22 est occupée par une F qui permet la 
création de GTO délocalisés. Exemple : en mode RUN 
taper XEQ "A" et ne pas s'indiéter de l'affichage 
NONEXISTENT, passer en mode PRGM, USER B (touche 22) 
et vous obtiendrez GTO "A"! qui n'est pas un GTO 
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"dirigeant" vers un LBL ALPHA local mais un GTO à 
un LBL ALPHA global codé sur 5 octets. Nous remar- 
quons que Je A est placé entre des guillemets. 

La F ASN à la touche 33 (L) permet de créer des 
LBL délocalisés., En mode RUN, faire XEQ "A" comme 
pour le GTO, passer en mode PRGM puis USER L et 
vous obtenez LBL "A" qui n'est pas un LBL local 
codé sur 2 octets mais un LBL ALPHA global (synthé- 
tique) codé sur 5 octets qui pourra être ASN à une 
touche, ce qui accélèrera la "recherche". Vous 
m'excuserez de ne pas m'étendre sur la question 
mais si cela vous intéresse, je pourrais développer 
le système de codage des LBL, GTO et XEQ (tout un 
programme!). 

Il est également possible d'utiliser des CODES 
de CAR inaccessibles directement au clavier et je 
vais vous indiquer la procédure que j'ai découverte. 
Exemple :#CLA 12 en mode RUN) XTOA (USER x USER) 
ASTO_XŸ mode PRGM USER L et vous avez un LBL "y". 
Üne procédure semblable vous permet de créer 
des XEQ délocalisés avec la touche X (64). 

XEQ IND X (oubli = excuses):affichage NONEXISTENT 
La fonction mu qui est l'équivalent français 

du QLoader "US" est ASN à la touche 34 (M) et sa 
soeur, STO Q, est ASN à la même touche SHIFTée. 
L'utilisation de ces 2 dernières F associées à 
d'autres (RCL Q STO M etc...) fera l'objet d'un 
"papier" ultérieur. 

La touche #43 (EEX) permet d'obtenir un E qui 
est un 1 plus rapide et si vous tapez = et EEX 
(51 & 43), vous obtenez eE qui donne =1, N'oubliez 
pas d'effacer les 2 Pas suivants et vous serez 
surpris (7?) de constater que le E s'est placé 
derrière le - (moins). Si vous faites d'autres 
essais (ne vous en privez pas!}), vous aurez bien 
d'autres surprises qui ne seront pas toujours 
faciles à expliquer.... 

La F XROM 48,28 vous permet également de placer 
le signe moins derrière tout chiffre ou nbre : 
mode PRGM 123 USER = (touche 51) USER SST <= 
original, n'est-ce-pas 7? 

La touche 82 vous donne, toujours en mode PRGh, 
une virgule (ou un point si CF 28) mais c'est plus 
simple de taper sur la touche d'à côté.... Regardez 
tout de même au Pas suivant (2). 

La touche 63 (Kw) permet d'obtenir le fameux 
sauteur d'octets sur lequel j'ai déjà écrit quel- 
que chose mais je pense qu'il y a encore des 
applications à découvrir de ce côté là. 

Je vous laisse découvrir des applications aux 
fonctions non citées ci-dessus et j'attends avec 
impatience le plaisir de vous lire car j'aime aussi 
beaucoup lire..... 

Si je connaissais les CODES DEC des F/A__& M-- 
publiées dans l'OP N°6 P53 (Jean THIBERGE) et qui 
"complètent" eGOBEEP (ASN à -22-G), jéaurais 
complété ces ASN. 

Bonnes découvertes, rs (P20) 
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ER : 1971 
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65 GTO 84 
66+LEL 28 


67 “Buav4s\" 
68 GTO BA 
69+[BL 21 


165X 
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LH 
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L'alphabet de travers 

Le PRGM "ABC" ci-joint permet d'imprimer tous 
les CARactères disponibles directement au clavier, 
et ceci dans le sens de la longueur de la bande de 
papier. Il suffit d'introduire en ALPHA un maxi 
mum de 24 CAR puis de faire XEQ "ABC'".(#) 

Vous pouvez y ajouter les CODES correspondant 
aux chiffres # à 9 (publiés précédemment) en leur 
attribuant respectivement les LBL 2# à 29. 

Je vous avais indiqué qu'il était possible 
d'imprimer les CAR dans le sens de la hauteur et 
je me suis limité aux CAR dont j'avais besoin 
pour imprimer le nom des fonctions synthétiques 
“code-barrées" mais il serait possible de traiter 
les 128 CAR ASCII "HP-41", Compte tenu de sa 
longueur, ce PRGM n'est pas très rapide et nous 
pourrions l'accélérer un peu en plaçant les CAR 
les plus utilisés, en tête de PRGM. 

Signalons que ce PRGM peut très bien être 
utilisé avec l'IMP 82143A (non "IL"') et les 
exemples ci-joints ont été réalisés avec cette 
IMPrimante. 


Vous ne trouverez pas ce PRGM en CB mais si vous 


le désirez, je pourrais les 
prochaïn N° de JPC. 

Les CODES des chaînes de 
au moyen du PRGM "BL! de la 


publier 


CAR ont 
PPC-ROM 


dans un 


été obtenus 
et je vous 


un P- 
à #. 
+ + 
7 + 
= 
5 
“ 
Z PR 
hi 
: _ 
ce D 
O1 
o 
” ty 
m 
F n 
CE 
œ 
‘ EE 
Cu 
+ x 
_ 
HE 
À < 
CG La 
LS 
Ps D 
art 
— 
= 
tJ 
jt 
[a 
Cr 
Le 
LL ET 
£3 
œu" 
Fe OR EN 
Sas 
8 Co DJs 
EerÈr 


76 “Auiaft” 


74 GTD 84 
75+LBL 23 


parlerais peut-être un jour, du système de compi- 
lation (2), “de mise en forme" d'une chaîne 
ACSPEC correspondant aux points 7x7 permettant 
tous les tracés désirés. rs (P20) 

P.S.: Ci-dessous, la partie modifiée du PRGM 
"ABC" qéi introduit les CODES des chiffres ÿ à 9 
et qui accélère le déroulement du PRGM (ajout de 
la routine LBL ##ÿ). Bonnes écritures*de travers“ 

Le PRGM "ABC" complet nécessiterait 85 RANGS 
de CB vussse rs (P20) 

($) Si vous introduisez la chaîne ALPHA par PRGM, 

vous pouvez introduire 24 CAR en utilisant APPEND 


(exemple: ‘"'ABCDEFGHIJKLMNO"'! "+ PORSTUVWX'"). 
FE 
8 Œ . 5 Er] 
SDS: © Sr Eœ@œ = = > ON + = 
SD OO 2 © CO D CU SV SUr Sr Sn LL M, © tu [es] 
Lis LR: ee oo + œ nr 
DS YO DJ à © JS S HDOJIS JE AIN > ZI , OO D 
DEL Ee ESS Does = 
w =: S S =: S 2" EE SÉTSe JS De 
f- © © 4 
FÉRESSRÉRLESEDÉINSRÉERERRE Ÿ F 
— 
EE 
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GieLBL “ABC” 
62 CF 27 

8339 

84 PSIZE 

65 2,885 

86 ABS 
87eLBL *R° 
8e ASTO IND L 
89 ASHF 

18 ISG L 

11 GTO "R° 
12 2,1 

13 STO @ 

14 SF 21 

15 SF 12 
16+LBL “5” 
17 5 E-3 

18 STO 687 
19+LBi "T7" 
26 CLA 

21 ARCL IKD 86 
28 13 

23 ATOX 

24 ASTO INI 66 
25 x=8? 

26 STOP 

27 X=Ÿ? 

28 CTO 13 
29 28 

38 - 

31 XEC IRD & 
32 1SG 87 
33 GTO “T° 
34 ISG &6 
35 GIO “5” 
36 STOP 
37eLBL 13 
38 “Oa8+” 

39 GTO 88 
4eiBL 61 

di “Baise” 
42 GTD 88 
43e1BL B4 
44 ? 

45 SKPCOL 
46 AD 

47 RTK 
48e+lBL 88 
493 “6 4” 

58 GTO 88 
SieLBL 89 
52 “O8AoQ" 
3 GT0 86 
SéeiBL 14 
55 "B+5 + 
56 GTÙ 88 
S76iEL 15 
58 "B+Bce 
59 GCTO BE 
68+iBL 17 

61 “B+eise” 
62 GTO 88 
63elBL 19 
64 “B+Bhañ+” 
65 GTO 88 


66+LBL 32 
67 “68RBAag” 
68 GTO 88 
69+1BL 33 
78 "Eriee” 
71 GTO 88 
fêelBL 34 
73 "Ba xxx" 
74 CTO 68 
25+LBL 35 
16 "6 +äge” 
7? GTO 68 
78LEL 37 
19 "OTE06e" 
8& CTO 88 
8ielBL 38 
82 “By * 
83 GTO 88 
Bé+lBl 39 
85 “Bas ‘ ” 
86 CTC 88 
87+LBL 48 
88 “B+a{PE" 
85 GTO 88 
SReLBL 41 
3j “Cañ 
g° 
32 GTO 88 
93+LBi 42 
34 “Bosr 
€: 
95 GTO 88 
Gé+LBi 43 
97 “Ouëp ‘ * 
38 GTO 88 
39+LBL 44 
188 “OTvE"" 
18i GTO 88 
182eLBL 45 
163 “GExo>" 
184 GTO 86 
f85eLBL 46 
186 “8Esaal” 
187 CTO 88 
i88eLBL 47 
189 “G6a0P”* 
118 CTG 66 
1jeLBl 48 
ii2 "Dal @° 
113 GCTG 88 
jiéeLBL 49 
115 “OTuD5a" 
116 GTO 84 
1iteLBi 58 
118 "O4a0la" 
119 GTC 88 
128elBi 51 
121 "Raao@be” 
122 GTC @R 


123eLBL 52 
124 "Baat" * 
125 GT0 88 
126eLBL 53 
127 "Geñüôle" 
128 GTO 68 
129+LBL 54 
136 “rec” 
131 GTC 68 
132eLBL 55 
133 “Bc+e” 
134 GTO 66 
1356LBL 56 
136 “8 @xa+” 
137 GT0 88 
1386LB: 57 
139 "6w08"" 
148 GTG 8E 
iéielBi 58 
142 “6 DH” 
143 GTO 88 
iédelEi 59 
145 “8 
146 GTE 86 
1474LBL 6€ 
148 "CSORBOR" 
149 GTO 66 
158+LBL 6! 
151 “6 @p0f" 
152 GTO 88 
1S3elBi 62 
154 “08AcB+" 
155 GTE 86 
1566LBL 66 
157 *8 @+a” 
158 GTÜ 86 
159LBL 69 
166 "Gate" 
161 GTG 88 
1624LBL 78 
163 “Bré$x” 
164 CTG 88 
165#1BL 7i 
166 “BaB Ge+” 
167 GTO 8E 
168+LBL 72 
169 “B6EKB ” 
178 GTE 88 
i7ielBi 73 
172 “BpOGe+" 
173 GTG 86 
174e1BL 96 
175 “8af:G}" 
176eLBL 88 
177 RL I 
178 ACSPEC 
179 ABY 
188 END 

91 REG 

632 OCTETS 


CODES DEC 


P38= 247 17 252 j44 193 
4168 

P4i= 247 16 4 25 241 3i 
285 64 

P49= 247 16 32 245 131 
134 156 & 

PS2= 247 17 1935 jé 65 4 
17 195 
24? 16 66 152 138 
132 8 & 
247 16 64 135 194 4 


2686 
716166541686 


16 64 66 64 65 


: 


47 16 1 246 7 192 


[1683 132822 
7 16 32 138 6 17 


247 17 6 15 248 é£ 
8i 28 

PS2= 247 jé 254 :3 23 
248 96 191 

P8S= 247 j6 296 & 16 3 
96 19€ 

Peg= 247 j6 125 26 46 68 
145 31 

P9i= 247 17 252 6 19 224 
64 255 

P94= 247 16 4 6 15 224 
6é 255 

PS7= 247 ir 123 15 16 32 
9e 19€ 

P188-247 17 6 12 3i 246£ 
gé 195 

P1R3-247 16 248 Gé 125 2 


4 6 


& 126 


YOL.i NO,5 
PAGE? 


P189=247 17 5 9 17 228 
86 193 

P112=247 17 252 5 16 3 
64 129 

P115=247 17 6 12 25 
113 193 

P118=247 17 7 13 25 45 
97 193 

Pi21=247 16 
81 28 

P124=247 16 4 8 
96 191 

F127=247 17 113 81 
81 28 

P138-247 17 6 16 23 24€ 
96 19 

P133-247 16 254 4 7 15 
64 254 

P136-247 16 32 64 129 2 
4 127 

P139=247 16 256 12 24 48 
96 193 

P142=247 16 32 161 66 72 
168 193 


Pi45=247 16 136 172 
48 96 193 
P148=247 17 5 17 65 
65 
P151=247 16 32 65 125 5 
17 65 
P154=247 17 252 i6 65 é 
16 127 
P157=247 16 32 64 129 
142 8 
Pi6h=247 16 24i 19 196 7 
128 @ 
P163=247 16 121 : 
198 129 à 
Pi66=247 16 113 
68 
Pi69=247 
i6 32 
Pi72=24r 16 112 1? 
7168 
Pi75=247 16 245 
17 62 





Eu 


BLDSPEC et codage sur 7 octets (suite) 


J'avais lancé un appel concernant la formule 
mathématique permettant d'obtenir les 7 CODES 
correspondant à ceux que l'on obtient au moyen 
de la fonction BL”de la PPC-ROM. En attendant 
la réponse, j'ai commencé des recherches sur ce 
problème et je vous indique ce que j'ai découvert. 

Si nous introduisons # pour le premier octet, 
c.à d.: # XEQ "BL" , nous obtenons :! 

f avec # à 31 introduit/ deuxième octet 


1 on 32 « 63 
2 n 6& n 95 
3 96 “127 
& n 128 "159 
5 16# vy 191 
6 1" 192 , 223 
7 224 w255 


Remarquons que 7 est 111 en BIN et donc le 
maxi codable sur 3 BITS et que "l'incrément" de 
1 est conditionné par une différence de 31 qui 
est 11111 en BIN et le maxi codable sur 5 BITS. 

Le premier octet est : 

16 avec #f à 63 
17 « 64 w 127 
18 « 128 w 191 
19 » 192 « 255 

L'incrément est alors de 63 qui est 111111 en 
BIN et le maxi codable sur 6 BITS. 

Un professionnel de l'informatique découvrira 
tout de suite (7?) le système. Hélas, je ne suis 
qu'un Amateur et vous comprendrez que je n'ai 
pas pu pousser plus loin mes "recherches", 
<< Ohé les collègues chevronnés, 

ne me laisser pas mourir idiot |! >> 

MERCI de votre attention, rs (P20) 


SeOe.Se (2) 


Est-il possible d'obtenir des LBL numériques 
dont la VAL est supérieure à 99 tels que LBL 154, 
par exemple ? Associés à des GTO compilés, ces 
LBL pourraient trouver qq applications ......e 
Mais je m'aperçois que la réponse est contenue 
dans ma question mais je laisse le soin aux 
spécialistes de développer la question.... 


MERCI _DE VOTRE ATTENTION 


Je signaie « tous les lecteurs du JPC que des eproms et des cartes magnéticue 
sont à vendre au PPC P C et qu'eprés les vacances, j'instaurerai un service de 
photocopie 


la vente des cartes magnétiques est de 300FF les 100 cartes (je signale à tous ceux 


qui sont interessés que l'incription à PPCTN - Australie - est payable par cartes 
magnétiques) 


La vente des éproms est de: 


pour les membres pour les non membres 
. 4K (1 x 2716 ; 1 x 2716) = 100FF les 2 120FF les 2 
VIeTBES gx (1 x 2716 ; 2 x 2732) = 150FF les 3 190FF les 3 
. 4K 150FF les 2 200FF les 2 
vopiées. pu 200FF les 3 280FF les 3 & 
copie d'eprom (fournie) sur eprom déjà existante: 60FF (membres) NC,S 


autres possibilités sur devis PHILIPPE 


ECONOMIE d'_OCTETS 


Les PRGM que j'ai à réaliser pour une utili- 
sation professionnelle, sont souvent très longs, 
à la limite des 519 REG. Je suis donc, par la force 
des choses, un “radin” de 1'OCTET. 

Je vais donc vous indiquer quelques "trucs", 

Le premier et, à mon avis, le plus beau, bien 
que, hélas, ce n'est pas moi qui l'ait trouvé, 
est ABS qui remplace avantageusement STO L en 
gagnant 1 octet. Merci Jacques VAUCELLE, qui est 
un chercheur de génie, doublé d'un programmeur 
très avisé. J'ai eu le chance de le rencontrer 
lors de son dernier passage dans la région pari- 
sienne; quel bonhomme ! Il mérite le déplacement. 
Peut-être ne va-t'il pas apprécier la publicite 
que je lui fait ; je vous demande donc de lui 
téléphoner avant tout contact "physique" ou de 
lui écrire (il préfère le phone, après 20h...) 
La Chasserie 55133 ROMAGNé (99) 98 83 69 
Ceux qui adhère à PPC-T (je suis T178) ont ses 
coordonnées. 

+ = (virgule multiplier) est plus élégant 
que # STO L mais maintenant, avec l'astuce de JV, 
+ INT est encore plus beau. Cela nous rappelle 
que ABS & INT sont des opérations..... 

CLA ARCL L ARCL X ACA ADV est + économe que : 

CLA ARCL L ACA ACX ADV | NONI, 1à je me suis 
planté.... 

CLA ARCL L ARCL X ACA PRBUF STOP 

CLA ARCL L ARCL X PROMPT (gain= 4 octets) (2?) 

Je n'ai voulu que mettre le train sur les 
rails. A vos machines à écrires et prenez le 
train en marche, comme vous le voyez, je n'ai 
pas mis toute la vapeur..... 

R.Se 
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La PILE 


A la demande de qq collègues, je vais essayer 
d'expliquer le "fonctionnement" de cette mysté- 
rieuse PILE. Compte tenu de l'importance du sujet, 
ce "papier" ne sera qu'une introduction car il 
est évident que je ne peux pas envahir les pages 
de JPC (7) mais si vous le désirez, je continue- 
rais dans les N°s suivants. 

Les explications du manuel de notre "41" sont 
pratiquement "imbuvables" et je dois avouer que 
j'ai eu la grande chance de posséder la première 
HP25 dont le Manuel était une petite merveille 
dans le genre, ce qui m'a permis de saisir faci- 
lement les subtilités de la PILE. 

J'en profite pour indiquer que cette HP25 
ainsi que son manuel m'ent été "empruntés" 
définitivement (2?) et que je suis acheteur de 
ce type de machine qui m'a laissé de très bons 
souvenirs et vous comprendrez que j'y étais 
sentimentalement, très attaché..... Je suis done 
prêt à payer un prix bien supérieur à la valeur 
vénale. Celui qui pourra m'aider à trouver cet 
oiseau rare aura droit à toute ma bien sincère 
reconnaissance. 

La PILE est donc constituée de 4 REG (X,Y,Z&T) 
que nous allons représenter, emPILés les uns sur 
les autres. Le REG LAST X (L) ne semble pas faire 
partie de la PILE puisque la Fonction CLST 
n'efface pas son contenu. Le REG L est cependant 
étroitement associé à la PILE.... 
1°) Mode RUN (CF 28 SF 29 FIX #) 


Si nous tapons un ou plusieurs chiffres 
(19 au maximum) constituant un nombre (exemple : 
1234 donnant à l'affichage: 1.234 ), notre Diva 
a besoin de savoir quand ce nbre est "complet" 
(terminé) et la solution proposée par HP est de 
taper ENTER#. 

Sachons que cette solution introduit bien la 
VAL en X mais également en Y et nous verrons plus 
loin comment faire "autrement", 

Nous voulons diviser par 2 le nbre 1234 
introduit précédemment par : 


RDS mnt UD 
= nos ten 2 2347 
ÉAPORS 

tapont 2 Éd) ee ne 2 Ér: 


et examinons ce ne s'est passé 


FARCEER 
N12st EE 
[L } [X_ 1.234] [L | D 


Nous constatons que nous avons perdu 1.234 
mais que l'opérande 2 a été placé en L. 
Si nous voulons conserver 1.234, nous ellons 
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procéder comme suit : 1234 ENTER} ENTER 2 / 
ce qui nous donnera : 


[x__617 | [EL _2] 


Pour "saturer" la PILE, c'est-à-dire, pour 
introduire une même VAL dans ses 4 REG, il suffit 
d'appuyer 3 fois sur la touche ENTER? après avoir 
introduit la VAL désirée. Indiquons au passage 
que je pense que ce procédé est plus simple que 
CLST pour placer # dans chaque REG de la PILE et 
si nous désirons, en plus, placer # dans L, il 
nous suffira de taper x .....(OK 7). 

A chaque fois que nous tapons ENTER" s la PILE 
monte" d'un cran vers le Haut en "“dupliquant" 
la VAL introduite, dans le REG supérieur mais, 
lorsque le sommet de la PILE est atteint (REG T), 
(donc après 3 fois ENTER®), la VAL qui était en 
T est PERDUE. 

Nous allons voir qu'il est possible de décaler 
la PILE vers le H sans perdre aucune VAL : 

# ENTER? ENTER? ENTER? x ___________ ÿ, 
Ne 


ALPHA ALPHA (taper 2 fois ALPHA) 1, 
ALPHA SHIFT CLA (facultatif) 


ALPHA 2 ALPHA ALPHA 2, 
3 ALPHA ALPHA 3, 
& APHA APR _  N, 


Nous avons maintenant : 


2. 2 
Y 
CE 


Si nous avions appuyé sur ENTER À s nous 
aurions eu ! 


Y 4h 
x) Es 


et le 1 aurait été PERDU (1 ENTER? 2 ENTER 3 
ENTER4A 4 ENTER#). Signalons cependant que si nous 
n'avions pas tapé le dernier ENTER , le 1 aurait 
été sauvegardé. 

Tapons: 4 ENTER 3 ENTER} 2 ENTER? 1 XEQ ALPHA 
R SHIFT ENTER? ALPHA et nous aurons : 


La représentation "à plat" des REG me semble 
plus claire et nous verrons plus tard qu'elle est 
bien pratique. 

La Fonction RÂ décale donc les REG de la PILE 
d'un cran vers le H (ou vers la Droite) et la F 
RDN (touche RŸ) fait l'inverse. Ces 2 F permettent 


donc de visualiser le contenu de la PILE sans 
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gieiBl “QF* 
82 SAYEP 
83 FLSIZE 
84 RCLPT 
85 PURFL 

86 FIX E 
g7 CF 25 
85 CLA 

89 ARCL Ÿ 
18 + REG” 
ii AVIER 

12 PSE 

13 CLA 

14 ARCE à 
15 “+ OCTETS" 
16 PROMPT 
17 ER 

OP 

REG “0P* 

* REG 
45 OCTETS 
PRBC 


lé REG 
185 OCTETS 


perdre aucune VAL et il suffit de taper 4 fois 
sur la touche R$ pour que toutes les VAL aient 
retrouvées leurs places initiales. 

Il ne faut pas confondre la F RDN (R}) avec 
ENTERŸcar cette dernière F fait "monter" la PILE 
d'un cran mais fait perdre la VAL qui se trouve 
en T. Sachons que toutes les F qui font "monter" 
la PILE en font autant. 

Tapons: + 5, 


R)  —— 
3 f 
1 


Lea F d'operation‘+" a effectue l'addition des 
VAL de X et Y et a placé le résultat en X. 
L'opérande *1" a été placé en L et la PILE a été 
décalée d'un cran vers le Bas (vers la Gauche). 
Remarquons que la VAL qui se trouvait en T (3) 
est conservée. 

Ceux qui disposent d'une IMP pourront utiliser 
la F PRSTK qui est bien gourmande en papier et 
qui, (on ne comprend pas pourquoi) n'imprime pas 
le contenu de L. Remarquons que si nous voulons 
visualiser le contenu de L (LAST X), nous décalons 
la PILE d'un cran vers le H et nous perdons 
alors le contenu de T. C'est bien ennuyeux et on 
aimerait bien que PRSTK soit complet.... Avis 
aux Amateurs de MC ! 

Je vous laisse donc manipuler les REG de la 
PILE en les visualisant au moyen de Rÿ et vous 
observerez ainsi ce que font les F X<>Y X<?Z 
X<>T X<>L et xX<>nn (nn étant le N° d'un REG 
compris entre #9 et 99). I1 est peut-être utile 
que je vous indique comment se font ces F : 

XEQ ALPHA X SHIFT COS SHIFT TAN ALPHA , Z 
XEQ ALPHA X SHIFT COS SHIFT TAN ALPHA . L 
XEQ ALPHA X SHIFT COS SHIFT TAN ALPHA g # 

Nous verrons la prochaine fois comment il est 
facile de faire des opérations en chaînes sans 
utiliser de parenthèses et je vous assure que 
c'est bien agréable. A bientôt donc, rS (P20) 


Nombre d'OCTETS et de REG d'un PRGM 


Le petit PRGM "OP" (Octets Prgm) ci-joint vous 
permet d'obtenir le nbre de REG et d'OCTETS 
occupés par un PRGM dont le nom (LBL ALPHA global) 
doit être placé en ALPHA. 

I1 nécessite le XF et éventuellement 1 ou 2 
XM car avec le XF seul, un PRGM de 125 (127-2) REG 
au maximum peut être "mesuré", 

Les fonctions FLSIZE & RCLPT permettent en effet 
de rappeler en X le nbre de REG et d'OCTETS d'un 
PRGM placé en XM. Il suffisait donc de placer le 
PRGM en XM puis de l'effacer avec PURFL. C'est ce 
que fait le PRGM "OP". 

Ce PRGM peut être utilisé pour déterminer le 
nbre de RANGS qui seront IMPrimés avec le PRGM 
"P +P P" dans lequel je n'ai pas pris la peine 
d'incorporer "OP" (vous pouvez le faire, si vous 
le désirez mais attention !). 

Le nbre de RANGs est 0/9, O étant le nbre d'oc- 
tets et le résultat doit être RND à l'entier 
supérieur et ajouter 1 par mesure de précaution... 
(RND = arrondi = excuses!}),. rs (P20) Ez 
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BIN, HEX et DEC 


I1 n'est pas possible d'essayer d'aller 
AU FOND de la 41C" sans connaître les bases de 
numération. 

Dans un ORDI, les informations sont stockées 
de façon BINaïire et sont donc constituées d'une 
multitude de "cases'"', d'éléments qui peuvent 
prendre 2 états : 1 et @. Ces éléments sont dits 
bistables et ont imposé le système de numération 
BINaire. Nous pouvons avancer que si nous maîtri- 
sions le "“tristable", nous serions amenés à partir 
(à prendre comme 1ère base) de la base 3 et que 
si la technologie nous permettait, d'une façon 
simple et fiable, d'obtenir des états décastable, 
nous n'aurions pas à utiliser d'autres bases que 
celle que nous avons l'habitude de manier, Je ne 
pense pas que les logiciels des micro-processeurs 
seraient plus simples pour autant maïs je ne veux 
pas m'étendre sur la question. 

Le tableau ci-après me semble être à la 
base (7?) des systèmes de numérations utilisés 
“dans'"!' un ordinateur. 


DEC HEx 
29 = 1 = 1 
“le = 2 æ 2 
2? = k = 4 
27 = 8 = 8 
24 = 16 = 19 

= 32 = 2# 
26 = 64 = 4 
27 = 128 = 89 
28 = 256 = 199 
8? = 512 = 2#$# 
218 = 1 #24 = 199 
211 2 2 pu8 = 899 
2°? = 4 #96 = 1 6pp 


L'examen de ce tableau nous permet de découvrir 
les principales relations qui existent entre les 
3 bases que nous utilisons. 
Signalons que 2919 = 1 #24 est le fameux 
k (ka) qui est utilisé par les informaticiens 
pour indiquer le kilo et que les 24 unités sup- 
plémentaires sont négligéss. Un ORDI dont la RAM 
est annoncée "ik", aura donc 1 #24 Octets et la 
"pesée" ($) sera, dans ce cas, fort appréciable. 
En base 1#, la décomposition d'un nbre peut 
se faire de la façon suivante : 
si nous prenons comme exemple le nbre 2832 et 
que nous lisons ce nbre de D à G, c'est-à-dire 
dans le sens : unité, dizaine, centaine, etc..., 
nous obtenons 4 1 2 = 
2832 = 2,1#" + 5,19 «+ 0,19 + 2,1 
Pour une VAL NEGative, nous aurons : 
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#3 


P, 43537-41971 4 3.197 + 7.187 

Vous m'excuserez de ne pas faire la "démonstra- 
tion" mais un examen attentif des exemples préci- 
tés vous permettra de découvrir les relations et 
vous aurez peut-être un jour, l'occasion d'utiliser 
ces égalités. 

Le procédé est le même pour toutes les bases. 

En BIN : £ 1 2 3 

#1#1 = 4.2" + #.2 + 1,2 + f.2 

où nous constatons que les zéros donnent un 
résultat nul mais ne doivent pas pour autant, 
être négligés car ils ont une influence sur 
l'INCrément de la puissance de 2. 

En HEX (base 16), la relation précitée est 
également vérifiée mais il faut tenir compte 
qu'après 9 nous avons A, B, C, D, E & F puis 19, 
11, 12, etc... 8 1 2 

D#5 = 5.16”+ #.16 + D.16 (=3 5355) 

L'égalité étant calculée en DEC, nous prenons 
la valeur DEC de D qui est 13, ce qui donne : 

D#5 = 5 + (13.16%2) = 5 + (13.256) = 3 533(0K ?) 

Les VAL DEC de A à F ne nous facilitent pas les 
convertions HEX/DEC mais nous allons voir qu'il y 
a un moyen de s'en sortir...s 

Pour n'utiliser que des Maths "accessibles" (?), 
nous allons "passer" par la convertion en BIN 
et nous allons travailler sur un DIGit à la fois. 

D#5 sera se a en 3 DIG pris, cette fois-ci, 


| He 


de Ga D : 


Ü 


MOD 
d 
d° 
æ Hs 
Remarquons que puisque nous travaillons sur 
un DIG = 4 BITSs, nous devrons toujours faire 
& divisions et que ce sont les MOD 2 qui seront 
pris comme résultat. Mais, me direz-vous, 
“ DEC 43 ne nous donne pas BIN 1#11 |". Pour ne 
pas rentrer dans une démonstration "“"hazardeuse", 
nous allons nous contenter d'admettre que, puisque 
nous avons décidé de décomposer de G à D contraire- 
ment à ce que nous avions convenu au départ, il 
nous faudra enregistrer les résultats (MOD) de 
Bas en Haut, ce qui nous donne bien : 
DEC 13 = BIN 1191 
Nous allons nous épargner de faire les mm opé- 
rations sur # et nous placerons simplement quatre 


zéros (#ppp). 


n | | | 











D H- 
MOD = —_… 2 [2 
& = f 4 2 
a = 2 
DS D 
d'où DEC 5 = _#1#1 et, l'association des 5 DIG 


nous donnera 
BIN 11#1 666 p1#1 
DEC 13 £p #5 
HX D # 5 
DEC 330 
Nous verrons ultérieurement comment effectuer 
la convertion DEC 13 ## 5 = DEC 3535 rs (P20) 
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CHOC EN RETOUR 
Sen 


Suite aux art. parus dans le JPC VAN1 sur “la technique du Compiled-GTo" 
et “(dé)privatisation",je vous propose une version plus courte du PRGM ‘PP! 
(208 au lieu de 396), De plus,il ne nécessite plus l'utilisation du PRGM 
"CODE! de Wickes. 

Je redonne le mode d'emploi pour éviter toutes ambiguTtés: 
1°. Chargez votre PROM en mémoire 
2°, Chargez le PRGM ‘PP! (RSUB où GETSUB) 
3°, GTO "PP" puis RCL b 
4°, GTO “(dernier label alpha du PRGM})" puis RCL b 
Si le PRGM ne contient pas de label alpha,levez le flag #1 (SF 1), 
sinon baissez-le (CF f1).Dans ce cas le RCL b s'effectuera à le, . 

5°, Si vous voulez privatiser votre PRGM,levez le flag #g (S ##),sinon 
baissez-le (CF gg) 

6°. XEQ "PP" 


Au sujet des GTO compilés, je comprends à tous votre impatience, Mais je 
voudrais préciser une chose: si on publie un (ou des) art. à ce sujet, 
combien pourront-ils suivre? JE crois qu'il serait plus sage d'attendre 
que les débutants en P.S soient familiarisés avec la stucture de la 
mémoire et des fonctions (LBL?,END,GTO,..),et surtout de possèder les 
PRGM utilitaires (CODE,DECODE,REG, ce )e IA technique du Compiled-GTO n'est 
pas une chose bien compliquée; il suffit,pour la maitriser,de bien com- 
prendre ce que l'on fait. 


Daniel JACOB (11) 


BieLBL “PP” 


02 FIX 4 
83 KEG 14 
84 ROY 
85 STO a 
86 XEG 14 


89 FS?C @1 
18 CLX 
1 

1e 7 

13 7 

14 INT 

15 LASTX 
16 FRC 

17 7 

18 + 

19 ARCL X 
2@ RDN 

21 256 

22 x(=Y? 
23 CLX 

24 RCL I 
25 X( d 


26 SF 88 
27 SF 81 
28 F5? 13 
29 SF 84 
38 FS? 14 
31 SF 85 
32 FS7 15 
33 SF 86 
34 XCY 
35 x=8? 
36 SF 67 
37 XUY 
38 x() d 
39 STG I 
46 -6 

41 AROT 
42 ASHF 
43 rt 

44 256 

45 HOI 

46 XTOR 
47 64 
489 

49 F5? 68 
54 + 


51 2TGR 
52 RCI 
53 XC) a 
54 STD [ 


55 *Hésee” 


56 ROLL 
57 X() € 
58 F5? 15 
59 SF 83 
68 F5? 16 
6i SF 84 
62 F5? 17 
63 SF 85 
64 FS? 18 
65 SF 86 
66 FS7 19 
67 SF 87 
68 FS? 28 
69 SF 88 
76 FS? 21 
71 SF 89 
7e FS? 22 
73 SF 18 
74 F6? 23 
75 SF 11 


76 xt) d 
77 STO I 
78 “+e+e” 
79 REL \ 
88 xO € 
81 RCL a 
82 ST0 88 
83 xC)Y 
84 STÜ c 
85 CLA 

86 PCLPS 
87eLBL 14 
88 STO [ 


89 °+ee++e" 


98 RDH 
Si RL I 
$2 kQ d 
93 256 
94 FC? 07 
95 CLX 
96 SF 87 
97 xOY 
98 x() d 
93 ST0 I 
188 .RDR 





181 ATOX 
182 16 
183 / 
164 INT 
185 XC2T 
186 ATOX 
187 + 
188 7 
189 + 
118 + 
111 CLR 
112 END 


LBL'PP 
END 288 BYTES 
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Structure des "GTO' et des XEQ” numériques 


1°. ‘aro! numériques codés sur deux octets: 
Leur structure est de la forme: Ba 1m 


où: le 1°T nybble ‘B' est constant(en binaire 1011) 
le 28m6 nybble ‘a' code le label (de 1àF) 
les 3 et 4° nybbles ‘lm' codent la distence et la direction 
entre le ‘GTO' et le label. Décomposés en binaire,on a: 


dooo rrrr 
1 m 


le bit ‘d' indique la direction: 

- 0 pour la direction vers le bas 

- 1 pour la direction vers le haut 

les 3 bits ‘o' codent le nb d'octets 
les 4 bits "r' codent le nb de registres 


soit au maximum: 15(1111)x7 + 7(111)= 112 octets 


Exemple 1: 
#1 IBL ÿ1 ge 1 
g2 ENTER 83 “ 
93 ENTER 83 1 
9h ENTER 83 ue 
#5 "ABC" F3 41 42 45 à 
#6 GTO #1 Be B1l ee 
10 octets 
direction 1011 0001 
vers le haut B 1 
d'où: 3 + 1x7 = 10 octets 
Exemple 2: 
#1 Gro ÿh B5 O1 
g2 ENTER 83 4 
g3 "ABCDE" F5 41 42 43 Eh à5 6 
fh IBL f4 #5 "7 octets 


direction 5 0000 0001 
vers le bas O L 


d'où: O0 + 1x7 = 7 octets 
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2°. "OrO0' et 'XEQ! numériques codés sur trois octets: 
Leur structure est de la forme: al mn be 
où: le 1°T nybble indique le type d'instruotions: 
‘D'(en binaire 1101) pour les "Gro' 
fE'‘(en binaire 1110) pour les "XEQ' 
les 2,3 et 4% nybbles codent la distance entre le "GTO'(ou le 
‘XEQ') et le label. Décomposés en binaire,on a: 


OOOT  TTTT TTTT 
l m n 


les 3 bits ‘o' servant à coder le nb d'octets 
les 9 bits ‘r' servant à coder le nb de registres 
soit au maximum: 29= 512 registres 
les nybbles "b' et ‘c' codent la direction et le label, 
Décomposés en binaire ,on a: 


AXXX XXXX 
b ce 


Comme pour les "GTO' num. à 2 octets, le bit ‘d' code la 
direction. 
les 7 bits ‘x' codent le label numérique (de O à 7E en Hexa) 


Exemple 1: 


#1 LBL A CF 66 2 
g2 ENTER 83 1 
#3 "ABC" F3 41 4e 43 4 
gx "DEF" F3 44 45 46 4 
#5 GTO A DA O1 E6 1 
À 12 octets 


1010 0000 0001 0 0110, e 102 (alias ‘'A!) 
À 0 1 | 


d'où: 5 + 1x7= 12 octets direction vers le haut 


Exemple 2: 2 
g1 XEQ g1 Eg ÿ2 ÿ1l 2 
#2 "ABCDEFGHIJ" FA 41 42,6,006049 LA 11 
93 ENTER 83 = 
#4 IBL ÿ1 02 


14 octets 


0000 0000 0010 00 000 1 
0 O 1 Pee 


irection vers le bas 
d'où: O + 2x7= 14 octets 
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PRGM in PRGM 





La P.S permet bien des choses (pas tout hélas),et souvent auquelles 
on n'y avait jamais pensé. Et c'est en décortiquant le PRGM ‘TIX' de 
Lionel que je découvris la possibilité de coder un PRGM à l'intérieur 
d'un autre PRGM,éxécutable bien entendu. Il suffit de programmer les 
chaines adéquats et de s'adresser (dans la mémoire) au bon endroit. 
Sans plus tarder,un exemple/: 


8ieLBL “P" 
“+00” 
REL [ 
STE 83 
“Basa” 
REL [ 
STO 82 

ï "s 


CODES DU PRGN ‘P' 
(PEUVENT ETRE CHARGE 
AYEC LE PRGN ‘LOAD' 5 


LIGHE 82=244,156,8,17,26 
LIGNE 85=247,16,19,152, 
115,199,113,158 
LIGNE 68-247,115,177,145 
117,134,243,78 
LIGHE 11=247,73,r8:126, 
156,4,2B6, 124 
LIGHE 19=242,1,248 


8 RL T 


STO @! 
"IN£c!" 
RCL [ 
STG 6E 
CF 21 


6 RL T 





18 END 





ATTENTION: exécutable impérativement en SIZE gg 
Après (dé)assemblage,on peut extraire du PRGM ‘P' le PRGM suivant: 


e Fr PRGM correspondant aux codes des lignes 2,5,8 et 11 
82 VIEN % du PRGM'P', La ligne 15 comporte les codes de l'adresse 
84 TONE 2 à laquelle on va se pointer pour exécuter le PRGM 
ei-contre,en autre le 1°T octet du registre 1Ff (alias 
la mémoire #4 en SIZE Sg}sles octets étant chargés 
dans les registres 1EF,IEE,. (alias les mémoires ÿ5,f#2.. 
en SIZE g2g).0n peut d'ailleurs calculer le père 
code de l'adresse(le 1*Tétant toujours égale à 1 ou à 
. # suivant la position dans la mémoire) avec la for- 
AE suivantes 2È7© code Ade= 256-SIZE+4NRU 
où: NRU est le nombre de mémoire utilisées pour le stockage des octets 
uniquement. 
Encore une précision:le stockage des octets se fait toujours de haut 
en bas,et n'oubliez jamais le X()b pour revenir en mémoire proge 


A bientôt: Daniel JACOB(11) Es 
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AFFECTATIONS SYNTHETIQUES 


Différents programmes, tous nommés “KR (WICKES, LIND, DODIN), permettent l'affectation 
de fonctions synthétiques à des touches désignées. 


Tous souffrent des deux handicaps suivants : 
a) Les fonctions doivent être affectées par paires, 
b) Les nouvelles affectations occupent toujours le bas de la table. 


J'ai cherché une solution plus proche des procédures légales CASN / PASH). 
Ce programme nécessite un module XFUNCTION . 


L'idée générale est de faire une affectation automatique, légale, fictive et temporaire, 
grace & la fonction PASN , et de la remplacer ensuite dans la table par le triplet d6- 
finitif (Préfixe, Suffixe, Code touche) décrivant la fonction synthétique spécifiée. 


Ceci permet : a) De n'affecter qu'une fonction & la fois, 
b) De combler les vides €ventuels dans le table, 
c) Sans devoir manipuler les registres + et e. 


La procédure est la suivante : 
CPrefixe) ENTERT [Suffixe] ENTERT [Code TcheJ] XEC'SA 


Le programme principal C*SA) : 


x Traduit Préfixe + Suffixe en chaine & (Les XTOR provoquent des messages d'erreur 
pour les valeurs invalides), 

x Affecte temporairement la fonction % & la touche spécifiée ( PASN implique un messa- 
ge d'erreur pour un code touche invalide), 

x Traduit la touche en code interne (25 octets, en comptant pour 1 octet la ligne 60 - 
qui évite un ENTERT), 

x Constitue le triplet définitif, 8 substituer au triplet temporaire, 

x Fixe une borne (101 registres) à la zone explorée (la borne ne sera jamais atteinte car 
le triplet temporaire sera toujours trouvé avant), 

x Cherche dans la table le triplet temporaire, en recomposant la structure des registres 
(ligne 108 = Code synthétique 241,240), 

x Opêre la substitution (Lignes 112 et 113), et achève par un TONE 8. 


Le programme peut être appelé par une routine composant les codes XROM (l£€gaux), selon 
la procédure : 
CCode XROMJ <MM,FFD ENTERT [Code Tche] XEQ'"xA 


dont les messages d'erreur se trouvent en lignes 01 à 10. 
L'ensemble tient sur les deux pistes d'une carte. 


























RFF. SYNTH. 25 .64 S1 “x” 77 XCD EC 182 X<> [C 
26 X<=Y? S2 PRSN 78 xXTOR 163 RTN 

BieLBL 13 27 GTO 13 S3 INT 79 X<> € 184eLBL 64 
82 RCLFLAG 28 ST+x 2Z 54 .S 88 xX<>Y 185 X<> [ 
63 FIX 2 29 RDN SS X<=Y? 81 .1 186 “ke” 
64 “FN : - 36 E2 56 CLX 82 ABS 187 X<> € 
85 ARCL 2Z 31 ST* Z S7 - 83+LBL 61 188 -- 

86 “+ ?- 32 * s8 ABS 84 XEQ 682 189 XEQ @5 
87 STOFLAG 33 + 59 ENTERT 85 xEQ 84 118 X=Y? 
88 CLST 34 ENTERT 68 “al” 86 XEQ @4 111 SF 61 
89 BEEP 3S ENTERT 61 6 87 XEQ 62 112 X=Y? 
18 PROMPT 36 256 62 / 88 ISG L 113 X<> Z 
11eLBL -XA- 37 MOD 63 INT 89 FC?C @1 114 XEQ 66 
12 XC>Y 38 ST- Y 64 7 se GTO 61 115 “+e- 
13 ENTERT 39 X<>Y es - 91 TONE 8 116 XEQ 686 
14 X<e? 48 LASTX 66 ABS 92 CLST 117°LBL 85 
15 GTO 13 41 - 67 X>87? 93 CLA 118 X<> [€ 
16 INT 42 X<> 2 68 SIGN 94 RTN 119eLBL 66 
17 ST- Y 4é3eLBL “SA” 69 - 9S5eLBL 62 128 “+ece- 
18 32 44 CLA 76 16 96 “vpvp” 121 KX<> x 
19 KX<=Y? 4S X<> zZ 71 * 97 XEQ 63 122 END 

28 GTO 13 46 XTOR 72 159 98 X<> IND CAT :ï 
21 RDN 47 RDN 73 MOD Lt LBEL'XxA 

22 648 48 XTOR 74 XTOR 99eLBL 63 LBL'SA 

23 + 49 XC> [LC 75 X<> [LC 188 x<> [LC END 









191 X<> © 2227 BYTES 


S8 XC>Y 






24 





A. OISEL CPPC-FE-S27 


< D 
Ce proyromme, apres plusieurs ess +) 
De posede mauvéUV des brolkdlè es eonnus nur les 


: . 
AuŸres PREN de se sil ue Que Soit 30 \perition VOL. 1 NO.5 


LAN me more a: PAG 
Dee GRR E19 











CAT 1 
LBL'LEX 
END 168 BYTES 
LBL'AKX 
END 123 BYTES 
END. 18 BYTES 
CLKEYS 
FIX @ 
CF 28 
SF 29 
241, ENTER 
65, ENTERT 
12, 
KEG “MKK° 
PRKEYS 
USER KEYS: 
12 XROM 85,81 
(PRGM oN) 616... 
PACKING 
gi ENTEP+ 
82 “AECDEFC" 
(PRGM OFF) é 
ewPBCDEFE (em ALPHA) 
ASH “ATOX" 11 


£+ 

HOHEXISTENT (SF 2?) 
ATOX 
tt; #$t 
ATGX 
É#+ 
ATOX 
tx 
ATOX 
+t+ 
ATOX 
*t+ 
ATOX 
*ti 
RTOX 
**é 
ATOS 
+i* 
ATOR 
+$* 
ATUX 
&, #$## 

OK 7? ,elc..., 





Le "BJ": quoi, comment ? 


Un collègue me téléphone pour me demander ce 
qu'est le Byte Jumper et ce qu'on peut en faire : 
vaste question bien embarrassante (?7).... 

Je lui fait remarquer gentiment que je ne me 
suis engagé à répondre qu'aux questions relatives 
à la PRGMmation "classique", n'étant qu'un simple 
débutant en PS et donc non encore qualifié pour 
répondre à ce genre de question. 

Cela étant, je ne l'ai tout de même pas laissé 
totalement sur sa faim et je vais vous indiquer 
ce que je lui ai proposé. 

Le BJ s'ASN avec les CODES 241,65 et s'utilise 
en mode RUN (PRGM Off). Pour ASN ces CODES, il 
faut disposer au minimum du PRGM "MKX'" publié P92 
de "HP-41 SYNTHETIC PROGRAMMING MADE EASY" de 
Keith JARETT, du module XF (27ON à "La Règle à 
Calcul °) mais également du PRGM "LBX" (issu du 
livre précité) pour pouvoir créer les FS et les 
chaînes ALPHA..... Cela ressemble étrangement au 
chien qui tourne en rond (?) pour essayer de rat- 
traper sa queue...s. 

I1 y a plusieurs façon de contourner le problè- 
me et la plus simple aurait été que j'envoie les 
CARTes magnétiques correspondantes mais à condi- 
tion qu'il eut un lecteur (2).C'était presque la 
quadrature du cerclel.... 

Je pense que ce n'est pas le meilleur service 
à rendre que de livrer une "nourriture prémâchée" 
et il existe une citation qui s'adapte bien à ce 
principe.... 

J'ai donc demandé à ce charmant collègue de 
commencer par introduire dans sa "41", le BG, 
comme c'est indiqué dans 2 N°s de JPC ainsi que 
les autres ASN conseillées puis de lire attenti- 
vement les "papiers" traitant de la création des 
FS et des CHaînes ALPHA et ensuite, de me rappeler. 

Le lendemain (très doué, collègue!), notre ami 
était fin prêt et je lui ai donc dicté le PRGM 
MLBX" qui me semblait être la suite logique. Le 
mode d'emploi de ce PRGM lui ayant été indiqué, 
j'ai dicté dans la foulée (?), le PRGM "MKX"(avec, 
bien entendu, également, son mode d'emploi) et 
nous nous sommes quittés, l'un semblant tout 
heureux de posséder la clé résolvant tous ses 
problèmes et l'autre, satisfait "du devoir accom- 
pli" CDs sis 

J'avais naturellement précisé que le BJ n'était 
pas identique au BG mais que je répondraisà ce 
problème dans JPC. 

Je vais me contenter d'indiquer que le BJ s'uti- 
lise en mode RUN (déjà dit = excuses!) et qu'il 
place des CARactères en ALPHA qui peuvent être 
décodés au moyen de la F ATOX. Des recherches 
méthodiques et "patientes" doivent permettre de 
découvrir COMMEMT agit ce BJ et je pense que c'est 
un très bon exercice et je vous assure que cela 
permet de mieux assimiler (comprendre) qu'en 
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lisant le meilleure des explications.... 

Ne désirant aucunement monopoliser les pages 
de JPC, je demande tout de même qu'un collègue 
se dévoue pour nous écrire un article sur ce 
fameux BJ dont les subtilités sont indiquées dans 
MSYNTHETIC PROGRAMMING on the HP-41C" de WICKES 
et, comme ce bouquin est épuisé, je propose 
d'offrir une copie de ce livre à celui qui se 
dévouera à en traduire les passages les plus 
intéressants. Ce travail puurrait d'ailleurs être 
réparti entre 2 ou 3 "traducteurs" qui recevraient 
chacun une copie et qui devraient se répartir le 
travail. Il semble évident que cette traduction 
devrait être compréhensible par des Français qui 
ont l'esprit cartésien (7?) et qu'il faudrait donc 
éviter une traduction "mot par mot".... 

Merci à ceux qui ont la chance de bien maftri- 
ser l'américain, ce qui est bien loin d'être mon 
cas. 

(°) Publicité gratuite mais je pense, méritée. 
rs (P20+T178) 


SrOsSr.i 


La FIG.5 de "AU FOND" (JDD) nous donne les 
CODES des touches trouvés dans les REG d'ASN. 
Page 219 du Manuel du module PLOTTER HP82184A 
il est indiqué que pour créer en CB, une Fonction 
ASN kk "xyz...", le CODE à introduire dans l'Octet 
& doit être : + 
A x 16 +B (x = signe de multiplication) 
et je vais recopier textuellement ce qui est 
indiqué et que je n'ai pas réussi "à traduire" 3: 
t =ABS(keycode)DIV10,B=ABS(keycode)MOD10. If 
keycode< O then A=[ABS(keycode)Div1048] MOD16 
Bien que cela me sembla relativement simple 
à priori, je n'ai pas réussi à exploiter cette 
formule et je dois vous avouer que c'est assez 
décevant ee... 
I1 se trouvera certainement un collègue qui 
réussira à décrypter cette formule..... 
IL est également indiqué que l'Octet 5 : 
ist ASCII Character 
ce qui semblerait indiquer (?): 
ier CARactère ASCII, 
que l'Octet N+3 : 
N-1 ASCII Character 
ce qui devient de plus en plus nébuleux, 
et que l'Octet N+k4 : 
Nth ASCII Character (N< 7) 
ce qui m'a plongé dans une complète perplexité. 
Pour reprendre une formule (expression) bien 
cnnue 
<< Ne me laissez-pas me noyer idiot ! >> 
rS (P20) 
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Vive le PETIT THEATRE 1! 


Nous devons bien vivement remercier notre 
Président pour l'important travail long et fasti- 
dieux qu'il a réalisé dans les N°s 1 à 5 de JPC. 
Seuls ceux qui n'ont jamais tapé à la machine 
ignoreront "ce que c'est" mais il faut cependant 
souhaiter qu'aucune coquille ne s'est glissée su- 
brepticement dans la mayonnaise. Nous ne travail- 
lons pas "au mixer" et certaine "coquille pourrait 
nous rester en travers de la gorge....e Je Sens 
que cette remarque ne va pas me faire prendre du 
galon.... 

Jusqu'à présent, j'ai l'impression que nous 
sommes derrière le rideau du théâtre, avec les 
machinistes et que nous rassemblons tout le maté- 
riel (je crois qu'on dit: accessoires ?) nécessaire 
à la future représentation. 

Après ces considérations "gastrono-théétrales", 
il n'en reste pas moins vraique nous attendons 
avec impatience que résonnent les 3 coups annonçant 
la Première....s 

Donc un grand MERCI à Philippe mais ne nous 
laisse pas trop languir ! rs (P20) 


Sr025s.,! 


Un collègue de travail que j'ai réussi à con- 
vertir à notre religion (7?) m'a demandé s'il était 
possible d'arrêter le chrono du module HORLoge 
par PRGM. Il est amateur de photographie et déve- 
loppe lui-même ses photos et c'est donc pour cette 
discipline qu'il aurait besoin de cette "Fonction". 

Quelqu'un a-t'il résolu ce problème ? 

I1 doit bien y avoir des Amateurs "PHOTO" 
parmi nos collègues ! rs (P20+T178) 


La "41" seraient-elle MISOGyne _? 


Vous avez dû constater, et j'espère à votre 
grand désespoir (?), que les prénoms féminins 
sont extrèmement rares parmi la liste des membres 
PPC et je vais m'abstenir d'en profiter pour 
en tirer des conclusions désobligeantes..... 

Je suis devenu contre mon gré, un irascible 
misogyne, ce qui ne m'empêche pas de beaucoup 
aimer les femmes mais à faibles doses, comme le 
poison..... Rassurez-vous, je ne vais pas dévelop- 
per le fond de ma pensée mais je tenais cependant 
à poser la question : "pourquoi le sexe “dit faible’ 
se désintéresse-t'il de ce qui nous passionne ?" 

Je ne désire pas une psychanalyse du problème 
mais j'aimerais bien avoir votre avis et bien 
entendu, celui de ces damss et demoiselles. Comme 
à ma connaissance, il ne se trouve qu'un seul 
prénom féminin dans la liste des membres PPC-PC : 
Pilou va se dévouer pour me répondre..e.e.s 

Je vais me garder de trahir le secret (2?) qui 
entoure cette charmante présence parmi nous.... 

Venez à nous, Dames et Damoiselles, vous cons- 
taterez que même les misogynes savent vous Aimer ! 

rS (P20) (robert) a 
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Rambarde pour BG 


D'abord une petite précision au sujet du mot 
"rambarde" qui signifie garde-corps et que beaucoup 
d'auteurs n'ayant jamais mis les pieds sur un 
bateau, appellent "bastingage",. La rambarde est 
destinée à retenir les marins lorsqu'il y a du 
roulis provoqué par les caprices de la mer ou par 
la fréquentation de Dionysos (les marins préfèrent 
les Grecs....). Le bastingage est l'emplacement 
où l'on range les hamacs et vous remarquerez que 
son séjour dans "la Royale" a marqué votre servi- 
teur (6137 T51, pour les connaisseurs....). 

J'en entends dire: “il est en train de nous 
monter un bateau !", Restons ou redevenons sérieux$ 

Vous savez que pour utiliser le BG (BJ,-PRINTER- 
etc...), il est nécessaire de "travailler" dans 
un PRGM "fermé par le Haut", c'est-à-dire, ne pas 
“BéGer" en tête de la MEM PRGM: un LBL quelconque 
fait l'affaire et si vous travaillez dans un PRGM 
en cours, la condition est obligatoirement remplie. 

Il est également nécessaire que le PRGM soit 
“ouvert" vers le Bas, c'est-à-dire NON PACK par 
un GTO ..+ mais cela présente un petit danger car 
nous travaillons alors à la limite du domaine 
d'Alice et ce n'est pas toujours une ‘Merveille 
que de s'y retrouver..... Ne souriez-pas, s'en 
sortir n'est pas toujours évident pour un débutant 
et un CATALOG 1 ou autre GTO . ##f ne résolvent 
pas toujours le problème..... 

Je vous indique donc une méthode que j'ai 
adoptée et qui m'a, jusqu'à présent (7), toujours 
donné satisfaction : placer un bon paquet d'ENTER 
(ou toute autre Fonction, exceptée STOP) et 
travailler au dessus de cette "“rambarde", Si vous 
retrouvez des CAR du CODE DEC 131 (flèche dirigée 
vers la G), ne vous affolez-pas, ce sera un (ou des) 
ENTER qui aura été "bouffé" et vous comprendrez 
alors pourquoi j'appelle le BG "Bouffeur d'octets'", 
plutôt que sauteur de je ne sais quoi ; ce dernier 
terme s'appliquant mieux à la Fonction (BUG ?) 

W" (CODE DEC 31) qui, je l'espère, a été appréciée 
par quelques collègues (?7).... zrS (P20) 


Ne pliez-pas, S.V.P.1! 

Dans la mesure du possible, essayer d'envoyer 
vos feuilles 21x29,5cm dans une enveloppe du 
même format car le pliage détériore l'écriture et 
la qualité de la reproduction s'en ressentirait. 
Essayer donc de présenter vos copie avec le plus 
de soin possible. Les PRGMmeurs sont des gens 
soigneux, n'est-ce pas ? rs (P20) 

P.S.: vous pouvez répondre: oui papa ! ....0e 
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IMPrimante "IL" ou pas "IL" _? 


Etant adhérent PPC-T, j'ai écrit un "papier" 
semblable dans le N° 5 du journal de Toulouse 
(eh oui, ils ont dû supporter ma prose 1!) et j'ai 
pensé que la comparaison de ces 2 IMP pouvait 
également intéresser mes collègues de PPC-PC. 

Je précise tout de suite que tout ce que je vais 
avancer, n'est en fait que mon avis personnel et 
j'accepte qu'il soit contesté mais essayez tout de 
même de ne pas écrire de bêtises comme cela m'a 
été reproché par notre grand Président JDD..... 

Je lui indique au passage qu'il est parfaitement 
possible d'imprimer des lignes complètes (par 
ACSPEC et non BLDSPEC; +PS) avec l1l'IMP 82143A et 
j'en ai envoyé la preuve à un adhérent qui m'a 
écrit à ce sujet. Il risque même de gagner une 
caisse de Champagne s'il arrive à prouver que ce 
je lui ai envoyé n'a pas été imprimé avec l'IMP 
non. MILN,..,(C72) + 

Revenons à notre comparaison. 

L'IMP 82162A "IL" ne peut être utilisée qu'avec 
le module INTERFACE "IL" HP 82160A qui doit, 
normalement vous être offert gratuitement lors de 
l'achat de l'IMP (3 800, au moment où je vous 
écrit). L'INTERFACE est constituée) d'un connec- 
teur un peu plus long que celui de l1'IMP "normale 
et est muni de 2 câbles (fils de 2 conducteurs 
chacun, genre "Scindex") permettant de constituer 
la fameuse boucle. Dans le cas de l'utilisation de 
l'IMP seule, les fiches (d'un modèle différent) 
placées aux extrémités des câbles sont connectées 
à l'arrière de l'IMP et un petit interrupteur 
placé au dos du module doit être placé sur la 
position "ENABLE", La position "DISABI£' est 
réservée à l'utilisation de l'IMP "normale" 
simultanément avec la boucle "IL" et, dans ce cas, 
vous avez obligatoirement 2 PORTS âéoupés (la 
boucle peut être, par exemple, fermée sur le 
lecteur de K7,c.Q.f. Dire... 

Ces renseignements sont superflus pour ceux qui 
disposent de ce matériel mais peuvent être utiles 
à d'éventuels nouveaux utilisateurs. En effet, les 
manuels correspondants sont tellement mal rédigés 
qu'il est nécessaire, pour découvrir les "effets" 
de la plupart des fonetions, de s'armer de patience 
et de faire des essais. A titre indicatif, je 
signale que le manuel de 1l'IMP "IL" n'a que 18 
(dix huit) pages réellement utilisables (et encore!) 
y compris la table des matières. J'estime que c'est 
purement et simplement INADMISSIBLE de la part de 
belle-mère HP et, quand on tient compte du nombre 
de coquilles introduites sans errata et qui inter- 
disent pratiquement l'utilisation du mode 
“échappement".... Le module TIME dont le prix est 
sans commune mesure avec celui de l1'IMP "IL" (qui 
a été vendue 4 800), est accompagné d'une notice 
de 87 pages + Addendum, ce dernier n'étant pas 
traduit en français, il est vrai.(ce doit être 
trop fatiguant !). 
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GieiEi °CNE' 
@2 ERTERT 
@3 ENTER 
64 ALERG 
85 - 

86 ARST 

@7 RTC 

BE Pt 

AS ATOE 
IBF 
11 
18 + 
13 CHE 
lé AFGT 
15 ERE 


+ 


m1 


ABCDEFGHI JRLMNOPSRSTUVEE 
A ERTER? 


RE “CHE 


ABCDE-GHI JKLANOPERSTUVES 


A mon avis, la seule supériorité vraiment 
appréciable de l'IMP "IL" est la capacité de sa 
MEM tampon (101 octets) qui permet d'imprimer des 
CB et je pense même, qu'à part cette possibilité, 
1l'IMP non "IL" est préférable, En effet, notre 
belle-mère à tous n'a rien trouvé de mieux que 
d'utiliser qq CODES ASCII pour des commandes telles 
que : retour chariot, saut de lignes, etc..., ce 
qui interdit pratiquement l'utilisation de ce CODE 
ASCII pour le codage-décodage de valeurs numériques 
(pour stockage en FICHiers ALPHA de nombres entiers 
positifs compris entre # & 255 = gain d'octets, 
par exemple). Les commandes spéciales comme : 
fin dé ligne ignorée (LF) ou justification de texte 
à Gauche (que l'on obtient par PRBUF) ou à Droite 
(que l'on obtient avec ADV) ou au centre avec FMT 
sont d'ailleurs issues du MODULE "IL", 

Mise à part l'impression de CB, on ne voit pas 
l'utilité de la capacité de la MEM tampon. A quoi 
sert d'accumuler plus de 24 CAR (avec ACA et ACX) 
si une ligne ne peut pas en contenir plus 7? 

Ne me dites-pas qu'on peut aller à la ligne car je 
vous demanderais de me faire le PRGM qui fait la 
césure entre les syllabes.....(2). 

Les défenseurs de l'IMP "IL" diront qu'elle 
imprime automatiquement l'heure et la date dès 
qu'on "PRP" ou "LIST" un PRGM, à condition de 
posséder le module TIME..... 

Comme l'a écrit JDD, la MEM tampon sert égale- 
ment à stocker les CODES de qq commandes mais je 
crois pouvoir lui indiquer que ces CODES peuvent 
être incorporés aux chaînes ALPHA ASCII au moyen 
de la PS...,.. et je précise que je ne suis qu'un 
débutant, ce que j'ai indiqué à plusieurs reprises. 
J'ai toujours lu les "réponses" de JDD avec 
l'intérêt qu'elles méritaient, 

J'espère simplement vous avoir donné qq indica- 
tions vous permettant de faire votre "choix! en 
adultes et sans engager ma responsabilité,... 

Imprimez beau et bien ! rs (P20) 


MCNR!"_= YTOAX 


Le PRGM ci-contre remplace le CAR dont le N° 
d'ordre est placé en X par le CAR dont le CODE DEC 
ASCII a été placé en Y et est donc l'équivalent de 
la fonction YTOAX du module EXTended I/0. 

Dans l'exemple indiqué, 47 est le CODE de "/" 
que nous désirons substituer à "F'" qui est le CAR 
N°5 de la chaîne qui a été placée en ALPHA (24 CAR 
au maxi). 

Il ne nous restera plus qu'à réaliser le PRGM 
qui fera le même travail que la Fonction ANUMDEL 
qu'il ne faut pas confondre avec ANUM du xF. 
Rappelons que ANUMDEL place en X la première VAL 
NUM contenue dans une CH ALPHA (première en partant 
de la G) et efface les CAR situés à G de cette VAL. 
Je crois avoir écrit (2?) que cette F est beaucoup 
plus intéressante qu'elle ne paraît.... Je vous 
laisse le soin de faire le PRGM correspondant, 

Donc au plaisir de vous lire... rs (P20) 
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BieLEi “CNE° HCNX'" (ATOXX = suite) 


ue Le petit PRGM ci-contre fait le même travail 
Gé - que la fonction ATOXX du module EXTended 1/0. 
85 APOT I1 s'adresse donc à ceux qui ne disposent pas de ce 
@6 ATOX module ou de la PPC=-ROM. 
67 ST0F Si nous plaçons en X le N° d'ordre d'un CAR 
88 TOR d'une CHaîne placée en ALPHA et que nous XEQ'ons 
89 FIN MCNX" (Code N en X), nous obtenons en X le CODE 
18 CHS DEC ASCII et la CH est reconstituée. 
11 E Précisons que, comme avec ATOXX, le N° d'ordre 
TE doit être compté de G à D en n'oubliant pas qu'en 
13 ARCT Informatique, le premier CAR a le N° # et donc, 
rs 14 END si vous comptez de façon "traditionnelle" (?), 
ABCDEFGHI JKLANOPGRETUVHX il vous suffira d'ajouter 1,..... 
3, Le nbre maximal de CAR que nous pouvons intro- 
REË "CNE" duire en ALPHA est 24, ce qui m'a semblé suffisant 
ÊF 25 car, s'il serait possible de "traiter!" 28 CAR, 
TS +rt le PRGM correspondant utilisant la PS, serait 
RUK plus compliqué et fera peut-être l'objet d'un 
RECDEFGHIJKLANOF GRETUVRE papier" ultérieur.Voici donc un sujet de PRGM.... 


7 





La VAL maximale à placer en X pour le N° 
d'ordre est donc de 23. 

I1 serait possible de contrôler la longueur 
maximale de la CH introduite en ALPHA ainsi que 
la VAL max correspondante introduite en X pour le 
N° d'ordre mais cela "“alourdirait" le PRGM. Je 
laisse le soin à ceux qui désirent placer ces 
2 "barrières", de réaliser la modif adéquate. 

RUR Une utilisation appropriée des fonctions du 
ABCDEFGHIJKLMNOFGRSTUVRE module XF permet d'obtenir tout ce dont nous avons 
besoin mais le MC va nous permettre, je l'espère, 
d'avoir toutes ces fonctions en ROM (PPC-ROM N°2, 
ROM d'outre-Rhin, etc... ?) car hélas, ce qui a 


BieiEi “ETORC" 232 z = 2 fiat " ! 
été réalisé en France est plutôt maigre". J'en 


nn profite pour déclarer que la "politique" de belle- 
gé HROT mère HP qui impose un minimum de 500 unités pour 
95 EXT la réalisation d'une ROM (reproduction), est pour 
ABCDEF % le moins "DISCUTABLE'" et mériterait l'étude d'une 
| > réalisation "sauvage". Il est étonnant que nos 
JG “STORE: vénérables collègues "US" ou australiens n'aient 
CABCDEF pas encore résolu ce problème. Je m'associerais 


volontiers à ceux qui voudraient se lancer dans 
ce genre d'entreprise. 

<< Allez la FRANCE, montrons ce que nous sommes 
capables de faire ! .....>> rS (P20) 


REUNION GENERALE 


Chers amis, j'en avait parlé dans la précédente circulaire mais je m'aperçoit 
que personne ne m'a encore répondu à ce jour. Effectivement, je vous proposait 
pour la date de notre première réunion générale le dernier week-end de septembre 
ou début octobre; et à savoir si vous étiez intéressés par le samedi ou le dimanche. 
Cette réunion se passera à Marly la ville chez Pierre Ravennes (PPC P C n°53) 


À bientôt pour vos réponses PHILIPPE 
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11:69RH 26.86 
BIeLBL “Hp” 
ge CLST 
g3eLBL 81 
84 “+: 
85 XO ] 
86 X=0? 
87 GTO 6! 
88 XO [ 
as Rt 

18 XC) \ 
11 “++” 
12 KO \ 
13 RDX 

14 XO [ 
15 E 

16 + 

17 39 

18 - 
19x87 
28 DSE X 
21 9 

22 + 

23 X(47 
24 GTD 62 


25 XC)Y 
è6 16 

è7 # 

88 + 

295 

38 GTO 61 
JieLBL 82 
32 RDH 

33 CLA 

34 ENI 

$ REG 

J7 GCTETS 


Conversion HEX-DEC 


J'ai fait à l'attention de ceux qui n'ont pas 
la chance d'avoir une HP-16C, un PRGM permettant 
les conversions HEX-DEC et vice-versa mais j'avais 
surestimé mes compétenceset je me suis aperçu que 
les PRGM de la PPC-ROM étaient plus courts et plus 
performants..... 

Le coeur meurtri (7), je me suis donc résolu à 
proposer le PRGM "BD" de George ELDRDGE d'après 
une documentation fournie par John KENNEDY. Je me 
suis simplement contenté de remplacer le LBL 
ALPHA global par "HD" (Hex-Déc) et de placer 16 
à la place de RCL #6 au Pas 26. Dans le PRGM de la 
PPC-ROM, il faut placer dans le REG #6 la BASE du 
nbre à convertir et donc, si vous voulez utiliser 
ce PRGM pour convertir des VAL dont les BASES sont 
différentes de 16, il vous suffira de replacer 
RCL #6 au Pas 26. 

UTILISATION: Placer en ALPHA la VAL à convertir 
puis XEQ "HD" et vous aurez en X la VAL équiva- 
lente en BASE 1#. 

Exemple: ALPHA SHIFT 2 D SHIFT # ALPHA 
AEQ ALPHA H D ALPHA... 725, 
Le SIZE minimal est #96 (#97 avec "RCL #6"). 

Les CODES DEC du Pas 11 sont: 243 127 #9 8 

Le PRGM "DH" qui fait l'inverse de “HD'" et qui 
sera la version légèrement modifiée de "TB" de la 
PPC-ROM, sera publié dans le prochain N° de JPC. 


CHOC EN RET 
PÉRRIRET E NE TPE, VINAPe0) 


6. 


— retour au registres VA «:Bx :CY 


—— nom des differentes zones: 





d. 12 AT 10 9 8 7 | 6 5 | 4 3 2 1 © 
5 M ae XP 
L S&x 
CHAMPS NYBBLES BITS 
S = Signe de la mantisse 13 52 —- 55 
M = Mantisse 3 — 12 12 - 51 
XS = Signe de l'eXposant 2 8 — 11 
X ou XP = eXPosant O0 — 1 O — 7 
ADR = ADResse 3 — 6 12 - 27 
S & X = Signe de l'exposant et eXposant 0 —- 2 O — 11 
ALL = TOUT le registre O — 13 O0 — 55 
KB ou KY = registre KeY 3 —- 4 12 — 19 
HAE 4/4 ll 4 ll al + fall 44/44/4444 al 
—— pointeurs: 
R ou PT = PoinTeur sélectionné (P ou Q) 
©Rr = au digit pointé par R 
R <- = du digit O au digit pointé par R 
P -Q = entre les pointeurs (du Pième digit au Qième digit) 
ER, + = au digit R et R+1 
LD€R, —- = charger au digit R et décrémenter R (R-1) 
SLCT P 2 . 
SLCT se = Sélectionner lequel des deux pointeurs est actif P ou Q 
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8:47PK 86.87 
BieLBL °COMF” 
82 7 
83 PSIZE 
84 °L° 
85 EMDIR 
&e ci 
87 CRFLAS 
88 “P" 

89 RCLPTA 
18 STO 82 
{1 “ +66" 
je RC I 
13 “hr° 
14 RCL 
15 xO € 
16 RCL 88 
1? STO TI 
18 “+HABCDE“ 
19 xC) Z 
28 STO x 
21 “+AB" 
22 RO 
23 ST0 88 
ê4 XOY 
25 STÜ c 
è6 CLX 

27 STO 8% 
è8 STO 64 
ëc ST0 86 
7 ‘BL 48 
31 RCL 86 
32 XEQ 38 
33 STO 63 
34 EG 54 
35 #=87 
36 SIGN 
37 FS? 608 
38 GTO 68 
39 ST0 85 
4B+LBL 87 


63 RCL I 
64 x) \ 
65 STO I 
66 RCL &4 
67 7? 

68 MOD 

69 6 

78 - 

71 CHS 

7e Xe#8? 
73 XEQ 83 
74 RCLPT 
75 E 

76 ST+ 88 
77 ST+ 64 
78 - 

79 SEEKPT 
88 RCL 
81 SAVEX 
82 DSE 85 
83 GTO 67 
8éeLBL 41 
85 RCL 88 
86 RCL 82 
87 KeY? 
88 GTO 48 
89 RCL 84 
98 STO 62 
gi CLX 

92 STO 88 
93eLBL 81 
94 RCL 88 
95 XEQ 38 
S6 STO 63 
97 XE8 58 
98 x=8? 
93 SIGN 
188 F5? gi 
18i GTO 98 
162 ST+ 88 
183+LBL 83 
184 RCL 98 
195 RCL 82 


188 Xx)7? 
189 GTO 81 
118 RCL 62 
111 STO 68 
112 RCL 8 
113 256 
114 HOD 
115 XEQ 35 
116 RCL 82 
117 E 

1i8 + 

119 7 

128 

121 ENTER 
122 INT 
123 x#Y? 
124 ISG 
125 DEG 


126 ST0 68 
127 SF 25 
128 SEEKPT 
1297 

138 REL ! 
131 F5? 25 
132 SAVEX 
133 *B+++” 
134 RCL 82 
135 16 

136 / 

137 ENT 
138 XTOR 
139 RCL 62 
148 16 

14i HOD 
142 LASTX 
143 * 

144 RCL 88 
145 256 
146 / 

147 ENT 
148 + 

149 XTOR 
158 RCL 88 
151 256 
152 HOI 
153 XTOR 
154 REL [ 
155 “hr° 
156 REL L 
sur AC? € 
158 XCDY 
153 STO 86 
168 xC)Y 
161 XO € 
162 “FIN” 
163 SF ii 
164 OFF 
165 AVIER 
166 “P" 
167 STOP 
168+LBL 68 
169 STD 81 
178 E 

171 KeY? 
172 GTD 89 
173 RCL 83 
174 - 

175 CHS 
176 GTO 84 
177eLBL 89 
178 RCL 68 
179 E 

188 + 

181 XEG 38 
182 E2 
183 x(=Ÿ? 
184 SF 86 
185 RDH 
186eLBL 84 
187 - 

188 *L° 


189 SEEKPTA 
198 RDN 
191 XTOR 
192 RCL 84 
195 «°È 
194 

195 KT 
196 RCL 84 
197 LASTX 
198 HOD 
199 XTOR 
288 RAPPREC 
281 “P° 
282 FLSIZE 
283 RCL 81 
284 STO 85 
285 F5? 86 
286 GTO 97 
287 ST+ 88 
288 GTO 41 
289+LBL 58 


219 FS? 88 
228 RTK 
221 CLKX 
222 29 

223 k=Y? 
224 GTO 28 
285 E 

286 + 

227 R=Y? 
228 GTO 28 
229 CLX 
238 144 
231 X)Y? 
232 SF 82 
233 SIGN 
234 FS?C 82 
235 RTH 
236 CLX 
237 176 
638 K)Y? 
239 SF 82 
ê48 F5? 82 
241 2 

242 FS?C 82 
243 RTH 
è44 CLX 
245 192 
246 X)Y? 
247 SF Bi 
248 FS7 @i 
249 SF 84 
258 F5? @1 
251 2 


252 F5? 8] 
253 RTN 
854 CLX 
255 286 
256 X)Y 
857 GTO 51 
258 X=Y? 
259 SF 82 
268 F5? 62 
261 2 

è62 F5? 62 
263 RTN 
264 CLX 
265 287 
266 X=Y? 
267 SF 88 
268 CLEA 
869 2 

278 F5? 68 
271 RTK 
è72 CLX 
273 283 
274 KKY? 
875 SF 63 
276 RDN 
è7? 248 
278 K)Y? 
è73 SF 81 
288 - 

881 E 

282 + 

283 FS? 8] 
284 3 

285 RTH 
286+LBL 28 
287 RCL 88 
288 E 

289 + 

298 XEG 38 
291 248 
292 - 

293 2 

294 + 

295 RTH 
296eLBL 51 
297 RCL 68 
298 2 

299 + 

388 XEQ 34 
381 248 
382 x(Y? 
383 GTO Si 
394 3 

385 RTK 
386+LBL 51 


ES] 


318 RTH 
311eLBL 38 
312 CLA 
313 STO [ 
314 7 


315 / 
316 INT 
317 SEEKPT 
218 GETX 
319 xC> [ 
326 7 
32i HOD 
322 x#8? 
323 REG 83 
324 STO \ 
325 “He” 
326 KO) \ 
327 STO L 
328 ATOX 
323 RTN 
338+1BL 83 
331 “+e" 
332 BSE K 
232 GT0 63 
34 RTN 
335eLBL 98 
336 3 
337 X=Y? 
338 GTO 91 
339 RCL 83 
348 177 
341 - 
342 GTO 92 
343eLBL 91 
344 RCL 86 
345 2 
346 + 
347 XEQ 38 
348 126 
349 H9D 
35#eLBL 92 
35i °L° 
352 - 
353 SEEKPTA 
354 RDH 
355 XT0R 
356 ASTO 84 
357 SF 88 
358eLBL 85 
359 CLA 
368 ARCL 84 
361 POSFL 
362 X<8? 
363 GTO 82 
364 ENTERT 
365 INT 
366 K2Y? 
367 GTO 85 
368 GETREC 
369 “+e+eee” 
378 CLX 
371 STO * 
372 °+e° 
#3 XO [ 
374 ATO: 
375 256 
376 # 
377 XOY 
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378 STO L 
379 RDN 
388 ATOX 
381 + 

382 RCL 88 
383 KXC)Y 
384 FC? 88 
385 GTO 88 
386 X(=Y? 
387 GTO 85 
388eLBL 68 
389 - 

398 CHS 
sn « 

392 *P" 
393 SEEKPTA 
394 RDN 
395 CF 88 
396 X<87 
397 SF 88 
398 ABS 
399 FC? 83 
488 FC? Gé 
48i F5? 38 
482 GTO 26 
483 ENTER 
484 SIGN 
485 FC? 68 
486 CHS 
487 + 

486 STO @5 


412 * 

4i3 ROL 65 

4i4 1792 

415 / 

416 INT 

417 + 

418 FC? 83 

419 268 

428 F5? 63 

42i 224 

4e + 

423 ST+ 86 

424 XEQ 35 

425 E 

426 ST+ 88 

427 RL 65 

4e8 7 

429 

438 INT 

431 256 

432 MOI 

433 ST+ 86 

434 XEG 35 

435 E 

436 ST+ 48 

437 CLE 

438 FS: 88 

439 188 

448 ST+ RC 
xs 


441 KE 35 
442 E 

443 ST+ 68 
444 GTO 83 
445+LBL 62 
446 - 

447 SEEKPT 
448 FS?C 68 
449 GTO 85 
458 “ERREUR” 
451 SF 11 
452 OFF 
453 PROMPT 
4S4eLBL 35 
455 RCL 88 
456 7 

457 / 

458 INT 
459 SEEKPT 
468 GETX 
46i CLA 
462 STO 
463 RDK 
464 RCL 86 
465 7 

466 MOD 
467 +8? 
468 XEG 83 
469 XO) \ 
478 XO 
471 STD \ 
472 Rt 

473 XTOR 
474 XO [ 
475 XO 
476 XO [ 
477 RCL 68 
48 7 

479 HOD 
488 6 

agi - 

482 CHS 
493 X+97 
484 XEQ 83 
485 RELPT 
486 E 

487 - 

488 SEEKPT 
489 RCL \ 
498 SAVEX 
491 RTN 
4926LBL 26 
493 2 

494 FC? 88 
495 CHS 
496 + 

497 STO 83 
498 111 
499 XOY 
598 x)? 
591 GTO 22 
582 177 
583 ST+ 86 


"Il n'y a pas de petites économies" 


Tous ceux qui sont de ma génération ont été 
marqués par les privations de la "dernière" et nous 
vivons une époque où il est pratiquement indis- 
pensable d'éviter le gâchis, à moins d'avoir de 
l'argent à jeter par les fenêtres.... 

"nous n'avons pas de pétrole, nous devons donc 
puiser dans nos idées" et le Français, c'est bien 
connu, a des idées, il a des idées sur tout et 
il a surtout des idées, comme l'a dit ce comique 

si controversé,.., 

Vous avez constaté que les CB occupent une place 
appréciable dans JPC, bien que j'ai essayé de la 
minimiser de mon mieux. 

Je viens d'adopter une nouvelle présentation qui 
va permettre d'économiser pas mal de place et je 
pense que la disposition “dans le sens de la hau- 
teur" devrait permettre une lecture plus facile. 

J'ai adopté le nbre maximal (16) d'Octets 
“code-barrables" dans un RANG et, comme précédem- 
ment, 9 Octets PRGM étaient "code-barrés" par RANG 
et que maintenant il y en a 13, vous pourrez 
apprécier l'économie réalisée. 

Vous trouverez ci-joint le PRGM (merveilleux!) 
COMP de Frédéric POUPON (JPC N°3 P26) que j'ai aû 
partager en 2 à cause de la capacité disponible 
dans la MEM principale, en tenant compte que les 
PRGM qui me servent à "code-barrer" occupent une 
place appréciable, principalement la partie qui 
permet d'écrire "dans le bon sens". Je serais donc 
obligé d'effectuer cette scission dans tous les 
PRGM d'une certaine longueur (1). 

Je pense qu'il est inutile (?) de vous expliquer 
comment le"recollage” doit s'effectuer.... 

Frédéric, nous te félicitons pour ce merveilleux 
PRGM et nous attendons avec impatience, tes pro- 
chaines créations. 

Joyeuses et bonnes PRGMmations, rS (P20) 
(1) 142 REG au maximum. 


594 XEQ 35 525+LBL 22 

585 E 526 “GTO 2/3 OCTS" 
586 ST+ 88 527 SF 11 

567 128 528 OFF 

586 RCL 83 529 PROMPT 

589 7 538 EXD 

518 

511 INT 

512 RCL 83 

513 7 

Sié MOD CODES DEC : 
515 16 P il: 245 7286888 
516 *# P 13: 243 11 224 ! 
517 + P123: 24£ 

518 F5? 88 P133: 243 160 8E 
519 + P155: 243 11 224 ! 
524 ST+ 86 P325: 242 127 8 

52i XEO 35 P33i: 242 127 8 

522 E P369: 246 127 8888 
523 ST+ 88 P372: 242 127 8 

524 GT0 83 ATTENTION : 


LeS PaS 187,218,2352,391, 

eT 446 = CODE DEC 26 

{chec 2 = R=, } 
{R.S.) 


Pi 
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fleiBL *APPEHT 


SF {2 TEXTE * f9 


PROMPT ACFF ALENC 


é.i 


J INT DES / STI BR 


14+LBL AB 


ASTO IND X ASHF ISG x 


GT 88 


1+LBL Ai 


CLA ARCE INR &4 RATE 


K=ET GT € 


ASTO IND R4 CLA XTDA 


ASTE 3 REG IN à 


34+1BL @2 
1EZ * FRO LASTà 
K=#? GTO &5 SF 6£ 


39e1BL BI 


ENT 


KOF KOY 4E-3 CLA 


44+LBL fé 
FE9 INDE °F" 


FCT IND & °F * ISCY 


CTO B4 FC? 12 AVIER 


RDK F59C 68 AVIER 
GTS RE 


S7eLBL 65 
14 2 FS2C 63 / 
FC? te 2 F6? 2 7 


reLBL 86 
AVIER DSE À GTÜ 8 
GTO Bi 


Fé+LBL “À” 
.15282815 RTR 


F9+LBL *E* 
.3124211 RTH 


FéelBL "€" 
.i4:#171 PTN 


SieLBL D" 
.31171714 RTN 


SéeLBL *E* 
.31212117 RTK 


L °F" 
Hi6 RTK 


gFeLB 
31828 


SGeLBL *G” 
14172186 RTK 


93eLBL *H° 
.31848431 RTK 


SéeLEL *I° 
«39 RTN 


GSeLBL *J" 
.B2R1813 RTN 


182eLBL "K” 
.31841817 RTN 


IBSeLBL *L° 
-3181618@1 RTH 


188+LBL “W” 
.3185848831 RTN 


f{feLBL “N° 
3188848231 RTH 


\iéeLBL "9" 


iig+LBL °@* 
.14171714 RTH 


118eLBL °P* 
.31282685 RTR 


121eLBL *Q" 
.1417211613 RTH 


124+LBL "R° 
.31202811 RTK 


jarelpL °S° 
.Be212182 RTH 


138+LBL *T* 
.1616311616 RTN 


133+LBL “Ù° 
.3681813 RTK 


136eLBL *V° 
.2882818228 RTK 


139+LBL °° 
.388162813 RTK 


J42eLBL "K" 
-ir18841417 RTK 


45eLBL °°" 
.2484876424 RTK 


Jé8eLBL °2° 
17192125 RTH 


15i+iBL “ji 
.848831 RTK 


154+LBL *2° 
89192189 RTN 


157+LBL *3" 
1817211 RTK 


J6ReLBL "4" 
6182205 RTK 


163eLBL "5" 
29212118 RTH 


1664LBL 6” 
.14212182 RTK 


169eLBL “7” 
.16192824 RTK 


1724LBL 8" 
.1821211 RTH 


175+LBL "9" 
.88212114 RTR 


178eLEL *-" 
.048464 RTH 


f8teiBl +" 
.841484 RTR 


184eLBL “+” 
.18841 RTK 


187eLBL ”/" 
.B28486 RTK 


19@+LBL "=" 
858585 RTN 


193eLBL “4° 
.1F82648817 RTH 


196eLBL *,” 
.8182 RTH 


199+LBL *<" 
1417 RTR 


282+LEL *)° 
.1714 RTK 


eBseLEL "+° 
.8228242E RTK 


288eLEL “a 
.21t431té21 RTK 


211etBL "b° 
2727642707 RTK 


2idelEL “c° 
2118211821 ÆETH 


217eLBL “d° 
.18211421$ RTH 


226+LBL "e” 
1218891812 RTR 


223+LPL *E” 
.i7272117 RTH 


286+LBL * ” 
SF @3 RTH 


238+LBL "?" 
2416232828 RTK 


233+LEL *." 
.8i RTH 


236+LBL ":" 
.£9 RTH 


239+LBL “'" 
.8816 RTK 


242eiBL “$" 
.B414311484 RTK 


24selBL "4" 
.162416 RTK 


248+1BL "+" 
.1683 RTN 


25teLBL 6? 
ISG 84 GTG 81 EE 
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BIeLBL "MOPSE" SReLBL “LC 94eLEL “D 13R0LEL “1 
TEXTE :"  AON PROMFT .2121 RTK .222 RTK .12222 RTK 
ROFF ALENG €. / IN 
JE3 / STO 84 6ieLBL “D” g7eLBL *P” 133LBL 2" 

.211 RTH .1221 RTK 11222 RTK 

13LBL A 
ASTO IND X ASHF IS: 64+lBl *E° i8BeLBL °E” 136+LBL “3” 
CTG À .1 RTK .2212 RTN 11122 RTH 

18+LBL 48 67eLBL “F” 183eLBL “R° 1396LEL 4” 
CLA ARCL IND 84 ATOX 1121 RIN {21 RTN 1112 RTR 
K=8? GTO 87 
ASTA IND K4 CLA ATOR 76+LBL °C” 186eLBL °5" 42eLBL 5 

à 73eLBL °H° 189+LBL "T” 145eLBL "6° 

JIeLBL 1141 RTH .2 RTK 21111 RTH 
DSE Y GTO BE XEG IND Y 

76+LBL °° 112eLBL “ 14BeLBL “7” 
.ii RTN .112 RTH .22111 RTK 
3SeLBL "7" | 

x=87 GTO 88 18 + FRE 7GeLEL “J" 115eLBL “v" 151eLBL “2” 


LASTX INT KE IND * 


KOY GTO "2° 


4é+LBL 81 
TOHE Z RTK 


49+LBL 82 


.1222 RTR 


S2+iBt K” 
.212 RTK 


85+LBL *L” 


.1112 RTK 


118eLBL “W° 
.122 RTN 


1214LBL *#” 


22211 RTH 


1544LEL *9" 
20224 RTN 


157+LEL 8° 


1211 RTK .2112 RTE .22222 RTK 
TOHE 8 RTN 
| gBeLEL “M” 124LBL “Y" {6@+LBL * * 
526LEL “A° .22 RTR .2122 RTH PSE CLX RTH 


.12 RTN 


soeiBi *B° 


S{eLBi “N° 
24 RTR 


127eLBL "2° 
.2211 RTK 


164eLEL GI 


ISC 64 GTO 84 EKI 


.2111 RTK 


Ces deux programmes requièrent un Size 005 et le module 
XFUNCTIONS. 


Morse : TEXTE vous demande un texte de ?4 ceractères au 
maximum. Ensuite faire R/S et écouter..,.avec de l'entrainement 
cela peut devenir un jeu. 

Une personne met un texte et une ou plusieurs autres 
doivent décripter le message.( sans regarder le fenêtre de la 
machine bien sûr...) 


aApprh : (nécessite pour bien faire une imprimante ) 
Texte demande un texte de 24 caractères au maximum mais on 
peut cummuler plusieurs exécutions sans coupures au niveau 
du travail de l'imprimente., 
Faire R/S et c'est parti...automatiquement en majuscules (grands 
caractères). Pour passer en minuscules (petits caractères) faire 
un R/S,CF 12,R/S.entre deux caractères de l'affichage, Remplacer 
CF 12 par SF 12 pour repasser en majuscules, 


Remarque : en minuscule et avec un peu d'habileté on peut 
facilement écrire 2 fois sur le papier dans un sens et dans 
l'autre, 

Séparer le message en deux moitié; égales Faire imprimer la 
première partie, enlever le papier de l'imprimante et remettre 
celui-ci dans l'autre sens, pour imprimer la sui be . 
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Apprh permet aussi de générer vos propres caractères, 

Chaque caractère est codé en colonne, elle même codée en 

binaire ( O0 à 31 ) pour des groupes de 2 lignes.Soit une 
matrice SX5. JIsuFfvr chan qu le code Au oe LBUT(apus VE Ts) 
lignes restent cachées par l'inaptitü- 
Let Talpha 


de mE me peer vers 


Comme d'habitude certaines 
de de l'imprimante. Ne woeus thonnez pee s'il s'en Frouve 


Morse : au pas 47 Tone æ&- 
50 Tone E/X-1 ï 
Apprh : 45 F2:7F;1F on peut mettre n'importe 
quel 2° caractère, les 


colonnes seront alors impriméeiavec le 
caractére choisi, fun pet fablan ) 


Codage les ASN 2 «x6i ” ahha 


Ap-& avoir 
cree le [8l” alpha, 


pr se une Fuche 


{ - re 
Pa sqnation &ra va idée . 


cale diéru) 





R/< Vie 


VOL.1 NO.S 
PAGE 32 


BteLBL “Bache” 
62 GTO @7 
63eLBL 83 
g4 “ERREUR” 
85 BEEP 
86 PROAPT 
67+LBL 87 
88 SF 66 
89 CF 81 
18 "NH ?° 
ii PROMPT 
12 STO 88 
13 E 

14 XOY 
15 + 

16 STO 11 
12 LASTX 
i8 CLA 

19 *e SORTIE ?° 
ê8 PROMPT 
ei X=Y? 
êè SF 81 
23 x=Y? 
ê4 CLX 

es ST0 &i 
ê6 Xt8? 
è? CF 88 
28 X}T? 
29 GTO 83 
38 E 

3i XOY 
32 + 

33 STG 12 
34 RDK 

35 LASTX 
36 CLA 

37 “PROB # * 
38 PROMFT 
33 STO 82 
48 STO 13 
4i CLA 

42 POUR K PRIS?" 
43 PROMPT 
44 STO 83 
45 FC?C 81 
46 GTO 88 
47 - 

48 LASTX 
43 XOYT 
58 CHS 

51 STD 8? 
Se XOY 
SieLBL 88 
54 XOY 
58 x)? 
56 GTO 83 
57 XOY 
58 X)Y? 
59 CLA 

68 FACT 
61 STG &4 
62 RIDK 


Le PRGM "BacHe" (Problème de Bachelier), 

résoud l'énoncé : 

énoncé -Soit un évènement, d'un tirage 

1ère partie | exhaustif, qui s'est réalisé 

1ère forme "n" fois en "N" tirages.(1) 

Ou encores -Un tirage exhaustif ayant eu lieu dans 
énoncé une population de "U" éléments dont 
1ère partie un nbre "u", possèdent un caractère 
2ème forme distinctif (1) 





On demande, lors de la poursuite 
exhaustive du tirage, quelle est la 
PROBabilité de tirer “m'" fois l'évè- 
nement (le caractère distinctif), 
en "M" tirages. 
tirages 
Exemple: si N = 5 --- n = 3 succès 
quelle est la PROB de:m 2 succès pour M = 7 tir 
,064 pour 1/7 tirage 
5024 pour 0/7 


= © 
= © 

Réponse : PROBabilité = _ 0,109 pour SOI 
= 0,152 pour 3/7 
= © 
= © 
= © 


2ème partie 
de l'énoncé 


$ 
5182 pour 4/7 
5191 pour 5/7 
5170 pour 6/7 
PROBabilité Totale 
D'une façon générale, la PROB de "m"' succès en 
"M" tirages, est régie par une loi interne de 
la forme : 
MI m M=1 
—— p (1-p) 
mi (M-m)1! 
- qui se combine avec la loi des PROB élémentaires 
des événements à venir : 
(N-1)1! (n-1) N-n-1 
— p(i-p) dp 
(n-1)1(N-n#)1 
on rappelle : 


1 ü b a!fb! 
Dites) se 
0 (a+b+1)1!1 


Nota : Le PRGM est limité à N et M inf ou égal à 
environ 50 par les capacités de la HP (OUT OF 
RANGE). En modifiant le PRGM on peut certainement 
faire mieux. Je crois avoir vu un PRGM pour les 
FACT 120 ! sur HP. 

(1) exhaustif- de l'anglais "exhaust'"= épuiser, 
"I presum"- signifie seulement que l'évènement 
survenu n'est pas remis en jeu (cekqui, qagfois, 
peut modifier la PROBabilité du mm évènement 
évalué dans un tirage postérieur. 

Non exhaustif- par contre, peut simplement signi- 
fier qafois que la PROB demeure constante qq soit 
le rang du tirage (pile ou face, dés, etc...) 

- et aussi, bien sûr, que l'on remet l'évènement 
sorti en jeu, avant chaque nouveau tirage. 

Nota : La PROB d'un évènement non exhaustif, de 
PROB élémentaire p, qui s'est réalise "n" fois en 
"N" tirages, est donnée par la loi binomiale : 


bnN,p) = pr p'(1-p) 7" (b est la PROB. 


La PROB élémentaire est 1/2 à pile Dr #3 
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63 LASTX 
64 XC)Y 
65 FACT 
66 STO 85 
67 RDN 

68 LASTX 
69 - 

78 LASTX 
71 RO 
7è FACT 
73 STO 66 
74 RDN 

75 LASTX 
76 Rt 

77 FC? 68 
78 GTO 88 
79 CLX 

88 RCL 11 
81 STO 88 
82 RO T 
83 CLX 

84 RCL 12 
85 AC T 
86+LBL 88 
87 + 

88 LASTX 
83 OT 
58 - 

91 STO 67 
Se LASTK 
93 xOY 
S4 CLX 

9 E 

96 Rt 

97 xOY 
98 - 

99 FACT 
188 STO 88 
181 REK 
182 LASTX 
183 RCL 63 
184 + 

185 FACT 
186 STO 49 
187 CLà 
188 RCL 67 
189 E 

118 - 

111 FACT 
112 STO 87 
113 CLK 
114 RCL 88 
119 E 

116 - 

117 RC 
118 - 

119 LASTX 
128 E 

124 - 

122 FACT 
123 STO 18 
124 RDH 


125 LASTE 
126 KÇY 
127 FACT 
128 RDK 
129 + 

138 FACT 
131 XOY 
132 CLK 
133 RCE 87 
134 + 

135 RCL 69 
136 / 

137 XOY 
138 RCL 18 
139 * 

148 REL 88 
i4i XCY 
142 / 

143 + 

144 RCL 64 
145 RCL 85 
146 / 

147 RCL 66 
148 / 

149 + 

158 BEEP 


1/6 pour 1 dé, etc...). 

- La PROB d'un évènement exhaustif, de se réaliser 
"n" fois en "NN" tirages,étant donné qu'il appartient 
à une population de "U" éléments dont un nbre "u" 
possède le caractère propre à l'évènement considéré, 
est donnée par la loi hypogéométrique : 


u U! N! (ER LE (U-u)1 
h(n,N,p = U ) = ni(U-n)i U! (N-n)i U=u)-(N-n)}1! 
(h est la PROB. La PROB initiale est u/U) 


Le Nota ci-dessue fournit immédiatement la PROB de 
de la première partie de l'énoncé du problème de 
Bachelier, Le PRGM "BacHe" résoud la PROB de "m" 
succès en "M" tirages ultérieurs étant donné ce qui 
est dit en première partie (formes 1 & 2) de 
l'énoncé. C'est tout différent. 


Curieusement le problème de Bachelier peut servir 
au jeu du "LOTO" dans le cas où un lot de boules 
aurait un caractère différent de celui de l'ensemble 
s'Sortie plus aisée ! héh 1", 

Je signale toutefois qu'on change une série de 
10 boules après chaque "LOTO", et que de temps en 
temps (quand ?), on change aussi les 49 boules, 

Si quelqu'un possède des renseignements ou des 
idées à ce sujet, vous avez mon adresse, 


15i “PROB K/#" 177 RCL 82 
152 AVIEN 178 X=8? 

153 PSE 179 “+ >=" 

154 FIX 8 188 x=07 ne 
155 “X=" 181 GTO 82 | 3 
156 FC? 81 182 E KEG “Bache 
157 CTO 88 183 - | 
158 CLX 184 x=97 5,886 RUN 
153 RCL 83 185 “+ €" 

168 RCL 82 186 x=8? 3,688 RUN 
161 - 187 GTO 82 

162 ARCL X 188 x)87 2,888 RUN 
163 XOY 189 *+ <=" 

164 GTO 81 198+LBL 82 7,888 RUN 
165eLBL 88 191 XOY eu. 4 

166 ARCL 13 192 GTO 81 K=2/h=7 8,182 7” 
167+LBL 81 193eLBL 88 e SORTIE= d SDRTI 

168 “+/H=" 194 “+ - 

169 ARCL 83 195LBL 81 

178 FIX 3 196 FIX 7 

171 "+" 197 BREL X 

172 ARCL X 198 PROMPT 

173 PROMPT 199 CTO 67 

174 CLA 288 EXD 

175 FC? 88 45 REG 

176 GTO 88 383 OCTETS 


JACQUES HURARD 
IPETAN-STCAN/BE 

6: Ba VICTOR 

75415 PARIS CEREË 19 
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Vivent les Codes-Barres Î! 


D'abord un grand et $incère BRAVO à Gabriel 
GIL pour ses CB et pour les PRGM qui permettent de 
les imprimer; c'est du beau travail ! 

Une simple petite remarquet je pense que tu 
aurais pu te passer d'imprimer "ROw" devant le N° 
de RANG car en plus je ne sais pas ce que cela 
veut dire... 

Quelques conseils aux utilisateurs: 

- il peut étre utile et c'est même qqfois indis- 
pensable, de noircir les taches blanches qui se 
sont introduites dans les parties noires. Il 
convient de faire ces retouches soigneusement et 
d'attendre que l'encre sèche avant de balayer avec 
le crayon lecteur. Les défauts sont causés par la 
reproduction (photocopie). 

= il est conseillé de se servir d'une règle pour 
guider le lecteur et de chercher éventuellement 
la “hauteur" de balayage qui convient le mieux, 
c'est-à-dire déplacer légèrement la règle dans le 
sens de la hauteur de la feuille en conservant le 
même angle d'inclinaison du crayon. Il est inutile 
d'appuyer fort et je crois même que, moins on 
appuie, mieux ça va. Vous pouvez éventuellement 
utiliser une chemise transparente fournie avec le 
lecteur mais j'avoue que je ne m'en serg pas 
étant donné que je stocke aussitôt sur K7....e 

J'indique à Gabriel que depuis que j'ai le 
module PLOTTER (incorporé au module "IL" par 
Jacques VAUCELLE), je me sers d'un nouveau PRGM 
qui utilise les Fonctions très performantes de ce 
module. Ce PRGM a été envoyé à not #“Sident et 
sera donc (?) publié dans un prochain JPC, en 
CB, noblesse oblige... 

Je pense que si tu pouvais imprimer les CB 
sur une hauteur double (Jacques m'a dit que c'était 
possible) et dans le sens de la longueur d'une 
feuille (29,5cm), cela permettrait de gagner pas 
mal de place car, le nbre d'Octets "code-barrés" 
par RANG (et non par ROW!, na!) serait supérieur 
et avec une réduction de format, nous pourrions 
les présenter dans le bon sens; c'est d'ailleurs 
le procédé que j'utilise mais ceci n'est qu'un 
conseil et ne doit donc être considéré que comme 
tel.... L'imprimante de Jacques est très tentante 
mais je suis également intéressé par une table 
traçante qui permet d'obtenir des CB de toute 
beauté tels que ceux qui sont reproduit sur le 
Manuel du module PLOTTER HP82184A (230 pages!) 
rédigé en anglais, malheureusement et toujours 
en infraction avec la législation française....e 
Je finirais peut-être par mettre cela entre les 
mains d'une Association de Consommateurs...e.e 

rs (P20+T178) 
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12CC B85/E 


12CD @8E|R 
12CE 36F/0 

12CF 114 

12D8 379 RP MN 


1251 654  GOLONG 16BE 
Lea routine qui permet de générer les tones, se trouve 
en ROM à l'adresse 16DE; et controlle l'état du bender 


16BE 328  C=REGN 14(d) pour toute opération ‘“TONE'". La routine accepte des 

16DF 2BC RCR 7 données de 2digits. 

16E8 328 CST EX TONE est une instruction de la forme 9F,xy ; ou x est 
16E1 380 O7S=-1 normallement @ et y prend une valeur comprise entre Y et 9 
16E2 3AA RTK HC en programmation non synthétique. La durée est déterminée 
16E3 3C4 CLR ST par le contenu du mot ROM 16F2+xy. Cette valeur est 

164 208 FST EX décrémentée dans une boucle et le tone est entendu jusqu'à 
16E5 358  ST=C ce que la valeur du mot soit @. La fréquence est donnée 
16E6 G4E C=8 ALL par y 

16E7 138  LDI pour utiliser le BENDER,stockez #9 dans le registre T et 
16E8 @FF stockez FF (hex) dans le registre ST. Les tones sont créés 
16E9 3D8 CST EX en échangeant T et ST (2D8 T()ST). Le nombre d'échange 
16ER 1BC RCR 11 détermine la durée du tone; le nomd'instructions entre 2 
16EB 18E OA=C ALL échanges détermine la fréquencedu tone. La durée et la 
16EC 97C ORCR 4 fréquence, dépendent de la fréquence de votre calculateur. 
16ED 2A@ SETREC Pour une 41 non accelérée, les machines ont approximativement 
26EE 2BE C=-C-i $ un cycle de 158 microsecondes par instructions microcodes 
16EF 268  SETHEZ 

i6F8 3Fi Exemple : TONE 9 

16F1 058. GOSUE 16FC TONE 9 (9F 99) a une période de 3 cycles par boucles x 2 


boucles par cycles tone x 158 microsecondes par cycles soit 
0,000948 secondes. La fréquence est 





1éFC 186 C= TK —— 1781 28 FSTEX donc de 1/0,000948-1055 hertz. 

MUR PE À 128E 16  R=A-I X | Pour déterminer la durée, convertir 
ESS 178F 3F3 GONC #-82— je mot ROM 16F2 + 99 = 16FB qui est 
res En 1718 3E8 RTK 215 (hex), en décimal, puis ajouter 1 
En Le à APÈL ESS. PSE ER endant que la boucle 
 . KE BUE Dee : 3 : À eranite jusqu'à Ÿ@. Ce 
j282 27E C=C-1 5» 1713 106 R=A-1 % . (és à se ss 
1783 877 GOT  #+#fE 1714 3EB CONC +-03 ne . Ne Lu A4 
1784 2727  C=C-1 S& 1715 3E8 RTK des utilisa 

1285 88 GO #+{{ mm 716 2D8  FST EX : 
786 11E f=C $ 1717 888 NOP 3 La durée du TONE 9 est: 
1787 2D8 FST EX 1718 688  NOP 4 534 boucles x 3 cycles 
1788 IBE A=A-1 S 1719 16 A=A-1 % par boucles x 0,000158 s 
1749 3FR GONC #+-Bi 1710 3E3 GCONC +-84 par cycles = 0,253 secondes 
1708 146 A=R-1 X {71B ZE RTK 

1788 3DB GONC +85 Tous les tones d'une fréquence comprise entre deux tones 

1780 3ER  RTR existant peuvent être créés en variant le ratio entre l'alumage 


et l'extinction du bender. dansl'c:emple de TONE 9, le bender 


est allumé pendant 3 cycles et étein* pendant 3cycles. essayez la même boucle avec 

des valeurs differentes (2c & 4c; ...). Aprés utilisation du bender,devez stocker 

#9 en T, sinon un son wand le processeur tourne ou quand vous presserez une touche. 
Reentit 


care 
. ee k Ma HP41 ayant été gonflée avec deux blocs XFCT de 600 registres 
99B2 gl voici deux petites routines que j'utilise pour passer d'un bloc 
9983 138 LI à l'autre. Ceux qui ont la transformation, ont l'habitude 

99B4 @FF d'assigner : TONE 80 à la touche P -» R 

9985 319 CSI EX et TONE 37 à la touche R -» P 

S9BE 210 FST EX Il est maintenant possible de remplacer TONE 80 par B-1 


89B7 JER RTK et TONE 37 par B+1 


9988 8e! 
3989 nn 
93BA 862 

39BE 3C4 CLR ST 


S9BC 2D8 FST EX 
99BD SERA RTK 
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19 


20 


ei 


22 


23 


24 


es 


26 


e7 


28 


e9 


30 


31 


32 


33 


34 


35 


36 


a EnaEnnnnnnnnrennrnnrtrtatarnatettettnrenntlnnrtttttenl 
nent nnnnnntnttUaReennanttrUEl 
nn nennnnnnnnntnnennnnttttenl 
nent aeennnnntnannnantneannrtEntllnATetnttnnTEnl 
nant nntntnttrteeanlntnttEEtEnE 
Tr nennnnnnartnanrneennnrnnttnnnnnTAntElelttEnl 
nn rnntnennantantnntttnrtntenltnttnl 
te en neetentetntntnnanentnnnn tentent ntnnntnEnltnnltnttEl 
net nrtantnennnnnntnrntnntnntntnntaanltntnl 
ne nrnnnnnnnnnnnenannnnununntenurenl 
nant nnnnnnnnnnnttAnMaMtARAUEL 
re EnnnenenennnnrunrnenntlnanannnnenEntntrttttnennnttntttttutnnnunnttartennntttntl 
ann nnnnnrrntnnnnennntnenqntnnnnutttttnntnauttenntttnttrernuttn 
a eetarre nr annnnnnnnaeannennnnnasanteattnnnnneteeanuuttntutearrentntttnttttel 
antenne eeterenrnnnttrttrnaeannrrentnnnnnennnaennnenttntetetntUeranttnt 
an nnantnn ete entttnnenannnttntnUUtenEnennEnnnttnttnrnEntutannnntnuretetttnel 
annee nnnnnUttnnnttanetrtEnetnttttetnnnttntlrtnnnntttntrnnnetttrnnttten 
re enneannnnEnnennanrrnentnnnnnarnantaeanntntnttuuennanntnttttntnantenteettt trente 
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WNDDTA WNDDTXx 


WNDSUE WNDSCN 


WNDLNK 


WNDTST 
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RNNENENNNMEINNNNl << 


re nnantnetttnrEnnnttnrenn 
nnnnnEnnnnnnnnennnnEnennnnnnnnnnnennnnnnnnInnnlnnannl 


ul 
nl 
Â 


one TA EEnEntntEtEnttttntEnnEnEREtEENEEnllIRINUIEREl g 
2 anne nlEantltrnnnnntnnllEnNnIEannInnnEnNltIUUNNUUUnUnl 
> nn tannnnnnnntnnnnnErAATtElENnl 
+ TE nnnnnnnanntntnnrtnnnrrrnrtntnnnnrennnatnttatnIltenl 
> M nnnnnnnnnnnnnnnnannnlnnnnnrantnnnnnnnnnntennrtennantttel 
en nnnnernrnnnnnnnnnnnnnnntnnnnnnrtntntRtnnl 
En nnnennnntrnntnanteanntntenrtnItnnEnnl 
RE rnnnnnnnnnnnrnnttetnnnteEnennnttnTEAnnltntttenl 
> En nnntnnnnntnnnnnnnnrnnnannnnannnennEtnIenl 
so EE EnnnnnnnnnnnnnnnEnnnrttttnnntlttnnTAnl 
M ennnnnnnarrrnrnnntnnrntnttEetnl 
ce REnnnnnannrnnnrnnnnnnnnnnnnnnnntnnnnntnqnntnnnnl 
ce nnEnEntnnnrnnntrnnnnennnneennnrenttnntennntntnutenl 
 nnnnnnnnnnnnrnnnanrnnttttnttUtttttnttttnl 
Se nnnEnnnnnnnannnnenrannnnnnnnnnnttnnantntttttE 
Se nent nnnnnennnnnnnnnantEEnntntEnnEnl 
7 EnnnEnnEnnnEnnnnnnnnnnnnnrrentnntenntlnnttennEnlqtttnl 
ee nnEnnnnnnnnnrnrEnnnnnnnnnnnnnnnnnnnnnnnnnnnnnantnenntntnnnnnIntIAEUenl 
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19 


eo 


ei 


ee 


e3 


24 


es 


e6 


et 


28 


29 


30 


31 


32 


33 


34 


35 


36 


VOL. 1 NO.5 
PAGE41 


SA 


ic 


LT 


12 


13 


14 


15 


i6 


17 


18 


19 


eg 


ei 


 NENNNENREnnnEEnnnEEnEInENtEnnBEnnenttnl 

2 MENNEENENNENENNNENRENENNNNNENNRNIEENNNEEREENREIEEEENNTENNNEENEEETERN 
# HAERBNNENNNRNIENENREENNEENTEENNNEENERNNNNEBEEENERTNIEEEl 
+ HBNBEENNEENERNENNNERENERENEEENENNEEENEEEEEENEUEl 

> HMENNNNNEENNnAnENlEnRlnnnnEnntnEnttInntEEEtEENnl 

S EENENNNNeeEnNEntEnEnnEnnnEEnEnNEnEtEEnEnEIEn 

7 HAERNNENNREENERnINENEEEEnNNEEEtEEEREnEEEENEANNtTEEl 

e ENEEEENENNEEnnENEElEEnnENNREnNNERTENNIENAENINRTENEEEENl 

, EUEENEENNNNENNREENNAERNEENTERBENNANERNEEERNTENEEEEITEn 


RER EENENNsEnnENEnnEnnEBENEnEIEnNEEEnlENtENEnEAtEElEnEnl 
MRBTENANNEENNEEEEEEANNEEEENTERURINEENENEEENNNNEEENNEEENEEEEE 
MEETENEENNNEEEEENNNNENNTENNNENEENENNREENEENNEIER 
DATENTNEEENNENTEENEEREEENTENNERENNRlEETEEEERNENRENRETEMER 
TENEEEnnEnnEnEnnnnnrnnnnEnnnnnnltEnnttTEnnTEl 
MRBVEEREEREENENINENRTEENNNERNNREETIEEENEENEENENIEENNENNENENERNIENEIEEIEE 
ERNEREEENNNENEENEEEENtEnNTEEEEnENAEEENEnEl 
TEEN EnnnnENnEnNEnEnnl 
EnEEnnrnEenntnnnnneEnnnnEntnnEntEEEntnnl 
nEEnEnnNrEEnnnnnnnnnnnenntEnANtNNnENENIBEEU 
nn rEnEneannnnnnnnnnEnnnennltttEnnnnntEnEEnnItEEUNEE 

EEE EENtEUUEn en EEEEENEEEEEEInEnENEENNRRENEENlEEnEEnEEnnNNEneenEnIUUtnl 
MRENEEENEUUEREnEnUEEntUUEUEnnnEntEennEnnnnnntEnnnetnntEn 
Mere EENREEnEEEEEnnUUUeUeUEnnnnEnnEEnnnntEnneennnnennttnttttttl 
DRE EREUNINUUEUEEREEnnEnnEnEEnenEnEnUneeeEnnEntEEnEnlttNNtUEnl 
METEE EURE EennnnnnnnEEnnnntnnnNItEEEnl 

ATTEINEEEN MERE © 
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